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INTRODUCTION 


There can be no doubt that playing adventure games on home 
computers is increasing in popularity all the time. After all, 
what better way to relax than to forget the ‘real’ world and 
plunge headlong into a world of make-believe. Only an 
adventure game can take you to the heady heights of Mount 
Everest, pit you against Elfin Gods in the bowels of the earth or 
transport you into a darkened maze of terrifying complexity — 
all at a touch of a key. 


To many people, the real enjoyment of adventure programsis 
in trying to win the game. They are achallenge to play - to find 
all the objects needed and reach your goal is a task often 
requiring some thought. Certainly, adventures are more 
stimulating and fulfilling than zapping aliens all the time. 


For many adventure-gamers, there comes a time when they 
want to write their own adventure. “Where do | start?” is an 
often-heard question. For when you sit down and actually try 
to write a good adventure program, you realise how complex 
the actual task is. 


Primarily, this book is a collection of programs for you to type 
in and enjoy and/or use in your own adventure games. There 
are some five adventures of one type or another in this book, 
as well as a whole host of adventure utilities and four non- 
adventure games. 


The whole aim of this project is to get you, the reader, up and 
writing your own adventure games as quickly as possible. 


There is little more to say, save that reading through this 
book in its entirety will provide you with maximum under- 
standing. Finally, good luck and happy adventuring! 


Clive Gifford, 
Ashford, Middlesex. 
October 1983. 
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CHAPTER 1 


AN INTRODUCTION TO 
ADVENTURES AND 
ADVENTURE 
PROGRAMMING 


Adventures and adventure programming is a huge area of 
computer entertainment that is only now being exploited to its 
full capabilities by the commercial software market. The 
ability to be locked in mental combat with unreal obstructions 
and fantastic creatures in a mythical world where anything 
can happen is a pastime that thousands of computer owners 
and users are flocking to. 


Adventure games can offer a rea/ challenge to those who want 
more from computer gaming than blasting spaceships out of 
existence. You will find that the range of adventures commer- 
cially available for your computer is very comprehensive and 
will contain something to interest and amuse everyone. 


From a programming point of view, adventures are ideal 
projects for the less-experienced programmer. After fiddling 
around with a few very simple programs, you tend to find that 
you would like to embark on a bigger project. Adventures 
provide an excellent option. There is no need to complicate 
matters with graphics, speed (as for action games) is not 
essential. Most areas of BASIC programming you'll need for 
such a project (such as array manipulation and string 
handling) are fairly easy to master, and the program can be 
made as personal as the writer requires. 
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If anyone can claim to be inventors of the adventure game as 
we know it then it must be two mainframe programmers from 
the United States, Crowther and Woods. Their amusing 
adventure was set in what today is termed as the ‘classic 
mould’ with trolls, dragons and serpents to defeat in order to 
capture the treasure. This adventure became a cult with many 
computer users of the time, particularly on University 
campuses and in big busineses where there was access to 
large computer systems. Once microcomputers with suffi- 
ciently large memories came along, the adventure programs 
were scaled down to fit them and so the story continued. 


If you ask many people what they recognise as a ‘computer 
adventure’, they will invariably answer that it is a game with 
monsters, trolls, wizards and treasure. You must pick up 
various objects to do battle with the beasts and obtain as 
much treasure as possible to take back to your home base. 
This is the ‘classic’ type of game following Woods's and 
Crowther’s model but there are, of course, a much wider range 
of adventure games with no mythical beasts, no treasure to 
collect and no objects to even contemplate picking up. 
Perhaps the beauty of adventure writing is that almost any 


scenario can be used and any method of play adopted to suit 
the programmer's whim. 


What then distinguishes adventure games from any other 
form of computer game? | considered this matter and detailed 
what | believe to be the basic points that a game must include 
to become an adventure. An adventure program must have: 


(a) locations (ie. rooms). 

(b) usually some form of logical connection between rooms 
(though the logic is sometimes far from perfect!). 

(c) some form of reward or aim to work for, eg. escape, or the 
accumulation of treasure. Without any objective, an 
adventure game might become pointless and boring. 

(d) some form of obstacle to hinder your progress, eg. 
monsters, locked doors, etc. 

(e) some element of discovery. 

(f) some form of command with which adventurers can 
direct themselves around the various locations. 
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These different factors would all seem essential if you were to 
create a playable and entertaining adventure game. 


How does one go about writing an adventure then? Well, the 
chapters following on from this one will attempt to answer this 
with some practical examples, but let’s consider a little theory 
first. 


The most important factor that you must take into con- 
sideration is structured programming. Before you turn the 
page in horror, it must be said that structuring your programs 
is not that difficult. Everyone to an extent already structures 
their programs and it only takes a little extra thought and 
planning beforehand to give your programs enough structure 
to increase their performance and save you, in the long run, 
time. 


Why bother structuring programs atall? There are many good 
reasons to do so. BASIC is quite an unstructured language 
when compared to something like FORTH and so the pro- 
grammer must add his or her own framework. Structuring a 
program sensibly speeds the program up without it having to 
look through masses of irrelevant code every cycle. Struc- 
turing a program allows room for expanding the program ata 
later date and saves memory space. 


For adventure programmers, structuring is essential. If you 
have written a program without structure, returning to it after 
a gap of several weeks will be difficult. Looking at the program 
listing it will be hard to tell where the ‘room display’ routine 
was or where the score intrement is situated. For budding 
adventure writers, knowing where each routine and every 
piece of code is situated is vital, often simply because adven- 
ture programs are larger and more complex than other pieces 
of software. Without structuring, a large adventure will be a 
mess and future attempts at modification may well prove 
futile. 


| have laboured this point a little, but | think if there is a secret 
to writing quality adventures of any length for any machine 
then it must be the use of structured programming. 
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Adventure programs need to be split into areas so that the 
programmer can concentrate on one area at a time. The 
diagram below shows one possible way. 


INITIALISATION 


! 


CONTROL 


LOOP 


sus-RouTiNEs peaal 


Initialisation simply sets all the variables, arrays and other 
parameters to their starting values. The control loop is the vital 
part; the program constantly cycles through this awaiting a 
player’s input and then directing the program flow to one of 
the many handlers. The handlers cover all the varying actions 
and tasks that will arise in the adventure, such as movement, a 
battle, finding and taking items and the like. These handlers 
make use of a clutch of subroutines, such as message display 
and pause loop. The handlers, once they have finished their 


task, go back to the control loop and so the process starts all 
over again. 


It should be noted that this is just one method of structuring 
your adventure, there are lots of other ways. For instance, 


4. 


instead of having a bank of subroutines you could incorporate 
them into the handlers. 


With that discussion of structured programming under our 
belts, we can nowturn to planning out our adventure program. 
It must be said that planning out the game on paper is almost 
essential to good adventure writing. You must first try and 
decide the specifications of your adventure, ie. how many 
locations, the number of commands, types of obstacle, 
scenario setting and so on. 


Once you have written all the parameters down, then you can 
start to work out which operation goes where. Having a few 
pages of information is very useful to turn to when you arein 
the process of completing your adventure. If you find a snag in 
the program, you do not really want to look through 16K of 
code for the elusive bug - it would be much simpler to check 
your papers for any possible problems. In later chapters, you 
will learn how to construct travel tables, a map of your 
adventure, an object table and all the other necessary 
information blocks to make your adventure work, and work 
smoothly. 


CHAPTER 2 


A SAMPLE ADVENTURE - 
THE DARK FOREST 


Now to our first adventure, a medieval-style scenario with 
traditional ‘baddies’ to overcome. The Dark Forest places you 
in the centre of a huge, foreboding forest around the time of 
King Arthur. You have been sent by the King to search for and 
destroy the creature, a strange beast that has never been seen 
by the local villagers and yet rules the county of Ramshire by 
terror. Once at the forest, your adventure has begun - you 
must find enough treasure and magic influence (while 
retaining plenty of strength) so that when you eventually meet 
with this loathsome brute, you can finish him off once and for 
all. The pathway to your goal is not an easy one as many fierce 
animals and the infamous Black Knight live in this area, and 
they will no doubt do their best to overcome you. 


| do not want to give any of the secrets of the program away as 
without them, the adventure would lose much of its interest. 
This adventure is not of the ‘sentence input’ type where the 
computer must accept and decode a phrase or sentence 
command from the adventurer. You move around the forest by 
entering the compass heading, N, S, Eor W. Occasionally, you 
will be asked questions; usually these are answered witha ‘Y’ 
or a‘N’, but you will find the program is very user-friendly so 
you should not have any problems in this department. 


One other command at your disposal is the ‘rest’ command. 
By typing ‘R’, you can choose a number of hours for your 
character to relax and increase his or her strength. However, 
each hour's peace costs acertain amount of cash, so you must 
also take this into consideration. 
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There will come a time when you cross paths with a fearsome 
monster of some ugly kind or another. You have the options of 
either fighting or running. If you choose fighting, you then 
have to choose an attribute to battle with. Certain monsters 
are more powerful than others. | will not give too many details 
of each monster’s abilities away but suffice to say that if you 
come across the Black Knight, run as fast as you can! 


This adventure uses many random elements in contrast to the 
adventure game which follows in the next chapter - the 
Nielson Papers. The locations and the logic linking them up, 
however, is always the same. This adventure could be a little 
more structured than it is but as it stands, the game runs 
smoothly. | have included REM statements indicating where 
all the routines lie, and from these you should easily be able to 


glean all that you need to know about the programming from 
the listing. 


At the back of this chapter, there is a complete ready-to-run 
listing of the game. The rest of this chapter breaks the game 
down into various sections and analyses them in detail. 
Without structuring, it would have been impossible to split the 
program up into neat blocks at all. The program sections have 
been given the following labels: Initialisation; Control Loop; 
Monsters and Fight; Attributes and Possessions; Locations; 
The Final Confrontation; and finally, Win or Lose. This is the 
order that the sections of program will be looked at. 


INITIALISATION 


Initialisation in this program is in two blocks: the ‘initialisation’ 


subroutine and the ‘start game’ sequence. The ‘start game’ 
sequence is shown below. 


10 REM*kK*k(C) CLIVE GIFFORDK*X*x 
20 REMAXX*XTHE DARK FORESTX*4xx 
30 REMX*XA MEDIEVAL ADVENTURE. xx 
4@ REMAKE KAKA RAKE KE KAKA KEKE KK 
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S@ GOSUB 2620 

6@ CLS @:PRINT @ 166,"THE DARK FOREST"; 

76 PRINT @ 195, "PRESS ANY KEY TO START"; 
8 SOUND 200,1 

O@ IF INKEYS=""" THEN 80 

19 PRINT @ 222,"YOU HAVE DARED TO ENTER 


PRINT @ 361,"GOOD LUCK": 
FOR T=1 TO 190@@:NEXT T 


The first genuine program line, line 50, gos to the ‘initialisa- 
tion’ subroutine situated at line 2630 onwards. The next few 
lines clear the screen, set up the title page and wait forakeyto 
be pressed. Once a key has been pressed (the INKEY$ valueis 


something other than 


we 


) the game displays the ‘good luck’ 


message and flows into the ‘control loop’ section of the 


program. 


The ‘initialisation’ loop is shown below. 


2620 
2620 
2640 
2650 
2660 
2670 
26BO 
2690 
2780 
2710 
2720 


REME Kx (+INITIALISE) **x 

DIM M(Z):DIM Z(21,5):DIM Q(5,5) 
M( 1) =RND (20) +20 

M(2) =RND (7) +10 

M(Z) =RND (6) 

FOR A=1 TO 2 

FOR B=1 TO S 

READ Z(A,B) 

NEXT B.A 

DATA 10,13,11.8,6,19.7,2.9,@ 
DATA 0,10.4,2.0,9,19.5.3,9 
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2730 DATA 8,9.6.4.0.0.0,0,5,2 

274@ DATA 2,8. 10,0,0,7,12,1,2,8 
2750 DATA 5,11,0,19.0.0,9,0,9,@ 
276@ DATA 9,@.17.1.0,8,0,12,9,9 
277 DATA 1,9,14,12.%,%.2.15,12,9 
2780 DATA 11,18.16,14,@,17,0,0,15,9 
2790 DATA @,16,0,11,9.9, 20, 6.0,0 
2B@0 DATA 4.0.9,10,0,18,%,0,9.9 
2850 B=1:P=0 

2860 FOR A=1 TO 5 

2870 RO=RND(18) +1 

2880 IF Z(RO,5)=@ THEN Z(RO.5)=A ELSE GO 
TO 2870 

2890 NEXT A 

2900 RETURN 


Line 2630 dimensions all the well-used arrays. M is the 
attribute array and Z is a ‘two-dimensional room’ array. The 
attributes, strength, money and magic spells, are fixed at a 
value by lines 2640, 2650 and 2660. The section of code 
between lines 2670 and 2800 reads the values of the room data 
into the room array, Z. There are 21 rooms, each room having 
five numbers assigned to it. The actual workings of this 


location logic system is shown in the locations section of this 
chapter. 


B, the variable holding the player's location number, is set to 
one, and the variable used for the special idol, P, is set to zero. 


Finally in this section, the starting positions of the five 
monsters is determined between lines 2860 and 2890. The fifth 
number in the room array data is set to a value other than zero 
if one of the five monsters is present in that room. The 
program then returns. 
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CONTROL LOOP 


The most often used part of the program, the control loop, is 
the vital component of this game. The functions that it 
performs are quite wide-ranging and are detailed below. 


The first two lines perform the presentation ‘niceties’; that is 
clearing the screen (in one of the nine colours), pausing the 


program, playing a quick note or two of music and printing up 
the attribute values (the GOSUB 73@ handles that). 


120 FOR X=1 TO 15@@:NEXT X:CLS RND(9)-1 
14@ SOUND 190,1:GOSUB 770: PRINT 


The player’s response is handled by line 280 which then sends 
the program back to the beginning of the control loop. 


280 PRINT: INPUT"WHAT NOW": NS: NS=LEFTS (NS 
91) 


29@ GOTO 120 


The player's input is cut down to the first letter and then acted 
upon by the control loop. Lines 150 to 180 process the player’s 
movement. 


15@ IF N$="N" AND Z(B.1)<>@ THEN B=Z(E, 1 


1660 ITF N$S="S" AND Z(B.2>4<>@ THEN B=Z(B,2 


170 IF N$S="E" AND Z(B.2)<>@ THEN B=Z(B,F 


18@ IF NS="W" AND Z(B,4)<>0 THEN B=Z (8,4 
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If the player’s input was not‘R’ (for rest), the program jumps to 
line 230. The lines between 190 and 230 handle the ‘rest’ 
command. A price for each hour’s uninterrupted sleep is 
displayed and an input waited for. There then follows a pause 
in the game that is roughly proportional to the number of 
hours of rest chosen. Obviously, the money is deducted from 
the array, and the amount left is displayed together with the 
new strength level. 


199 IF NS<>"R" THEN 220 

20@ CS=INT((B+10)/10):PRINT" O.K. YOU C 
AN SLEEF HERE BUT ITWILL COST YOU":CS; "C 
OIN/S FOR EVERY YOURS UNINTERRUPTED REST 
"SPRINT 

21@ INPIT"HOW MANY HOURS"sH: IF 4<1 OR MC 
2)-(HkCS)<@ THEN PRINT" TRY AGAIN, SLEEPY 
HEAD'": GOTO 21@ 

229 M(2)=M(2)—(H*CS) 2M (1) =M(1)4+H2 CLS: FRI 
NT @ 226,"ZZZZ":FOR T=1 TO 150@xH: NEXT T 
=CLS:GOSUB 720:GOTQ 250 


The final lines in the control loop are particularly concerned 
with locations. Line 25@ directs the program to the correct 
‘location’ subroutine. Line 260 checks to see if there is a 
monster in the same room as you; if there is, the computer 
jumps out of the control loop and into the ‘monster/fight’ 
routine. Lines 230 and 240 provide a check to see if you have 
made a valid move since your previous go. If CHK equals B 
after going through the movement routine, it means that the 
player has not been able to move even though requested to do 


so. Therefore, the player attempted to make an invalid move 
and is told so. 


220 IF CHK=B THEN PRINT"cannot move in t 
hat direction":PLAY"L101C":GOTO 2460 
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24®@ CHK= 

250 ON B GOSUB 980, 1000, 10270,1170,1200,1 
25@, 1270, 1290, 1210, 1280, 1520, 1570,14540, 1 
£80, 174,176, 1880,1910,1920. 1950 

26 IF Z(B.5)<>@ THEN Zoe 

270 GOSUB 798 


MONSTERS AND FIGHT 


Once the program has detected that there is a monster in the 
same location as the adventurer, the program moves to the 
‘monster/fight’ routine. Lines 300 - 360 check to see which 
monster is in the location and prints a short description of that 
monster. The monster's fight level is given by the variable E. 


ZOQ REMKXMONSTER/FIGHTXk 

%1@ MN=Z (BLS): PRINT 

=20 IF MN=1 THEN PRINT"A BAND CF 1@ ROBB 
ERS SEIZE YOU.":E=40 

%Z@ IF MN=2 THEN FRINT"YOU HAVE COME ACR 
OSS GRENDAL, THE HERMIT. YOU HAVE AWOKE: 
EN HIM HE IS NOT PLEASED. ":E=4@+RND (15) 

Z40 IF MN==Z THEN FRINT"SIR RUFUS OF GASC 
ONY ATTACKS...":E=20 

=5@ IF MN=4 THEN PRINT"A FEROCIOUS BEAR, 
RAVENOUS FOR MEAT FPOUNCES.":E=20 

=60® IF MN=S THEN PRINT" YOU HEAR THE WAR 
CRY OF THE FEARLESS BLACK KNIGHT.":E 
=49 


The program waits for the player’s decision to fight or run. If 
the player chooses to run and the random element in line 390 
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is favourable, then the player is asked for which direction and 
the answer is handled in the same way as any normal direction 
command. Four points are taken from the player’s strength 
level for this base cowardice. 


If the random element is not so kind, the player loses ten 
strength points, and must stay and fight the enemy! 


37 INPUT"WILL YOU FIGHT OR RUN": F#:FS=L 
EFTS(FS, 1) 


%80 PRINT: IF FS="F" THEN 410 

39@ IF RND(1@)>4 THEN INPUT"WHICH DIRECT 
TON COWARD": NS=2M(1)=M(1)—-4:FRINT: GOTO 12 
® 

40@ PRINT"NO YOU MUST STAND & FIGHT' AS 
A PUNISHMENT FOR YOUR COWARDICE YOU 0 
SE 1@ STRENGTH":M(1)=M(1)-10 


The fight now begins with the computer accepting the name 
of the attribute that the player wishes to fight with. Several 
lines are taken up with checks to see that the player can use 
that attribute. The fight display is now constructed. A simple 
bar graph, for want of a better name, is displayed on-screen 
with a bar for the player's attribute and a bar for the monster's 
attribute. The size of the bars is in proportion to the actual 


level of the respective attribute. Line510 handles any attribute 
that is larger than 60. 


419 REMKAFIGHTXk 
420 Z(B,5) =: RO=RND (19? 


435@ IF Z(RO,S)=0 THEN Z(RO,S)=MN ELSE &O 
TO 426 


440 INPUT"WHICH ATTRIBUTE DO YCU WISH TO 
FIGHT WITH":AS 
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45@ IF AS="STRENGTH" THEN A=1 

46@ IF AS="MONEY" THEN A=2 

479 IF At="MAGIC" THEN A=Z2:E=INT(E/19) 
480 IF A=1 AND M(1)<1 THEN 221 

49@ IF A=2 AND M(AD<1 THEN PRINT" CANNOT 
USE MONEY":GOTC 448 

S@@ IF A== AND M(AIZ1 THEN FRINT" CANNOT 
USE MAGIC" 

S1i@ CLS @: TIF M(AI>60 THEN DD=M(A)-SO0:2M(A 


S2@ FOR X=1 TO M(Ad:SET(X,12,8):NEXT X 
SZz@ PRINT @ 40,"THE BATTLE COMMENCES"; 
S49 PRINT @ 128,"YQU";:FRINT @& 298, "ENEM 


56® SOUND 1,12 


The fight continues with points being docked off until one of 
the attributes reaches zero. If the player has won then he or 
she will be granted some extra points for one of his or her 
attributes; if the player loses the battle, of course, the game is 
over. The bar chart is updated every cycle of the loop, with the 
bars getting gradually smaller. 


One point of interest with this part of the program is how the 
fight is weighted in favour of the player. If you notice line 619, 
the computer is given a one in three chance of jumping the line 
which deducts one from the player's score. The monster, in 
contrast, has only a one in seven chance of the same happen- 
ing. Therefore, if the adventurer starts a fight with four or five 
points less than the monster, he or she will not be resigned to 
defeat but could well have a good chance of overcoming the 
monster's advantage. Little weightings here and there in the 
program may decrease the logical and ‘certain’ elements in 
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the program, but if used correctly will enhance the actual 
game. 

57@ REMXXMAIN FIGHT LCOP** 

58@ IF RND(7)=4 THEN GOTC 680 

590 RESET (E,22):E=E-1 

60@ SOUND 188,2 

61@ IF RND(2)=1 THEN GOTO 452@ 

62@ RESET(M(A),12)2M(AX=M(A)—-1 

62@ SOUND 168,2 

640@ IF £>@ AND M(A)>@ THEN GOTO 5708 

650 IF M(A)=8@ THEN GOTO 2910 

66® PRINT @ 320,"YOU WIN!!! "; 

670 PLAY"LBO4CDEFGP4CDEFG" 

680 ER=RND (40) : BV=RND (7) 

69 IF BV<4 THEN FRINT © 286,"YOU GAIN": 
ER: "STRENGTH"; =M(1)=M(1)+ER+DD 

70@ IF BYV<7 AND BV>Z THEN PRINT @ 7R6."Y 
QU GAIN"SER; "MONEY UNITS"; :M(2)=M (2) +ER+ 
DD 

71@ IF BV=7 THEN ER=INT(ER/1@)4+1:FRINT & 
286,"YOU GAIN"; ERs "MAGIC SPELLS"::M(2)= 

M(3)+ER+DD 


72@ FOR T=1 TO 15@@:NEXT T:CLS:GOTO 25a 


ATTRIBUTES AND POSSESSIONS 


Lines 730 to 780 encompass the ‘attributes’ routine. They have 
been defined in the ‘initialisation’ section and are added to and 
taken away from in the rest of the adventure. These attributes 
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take the place of ‘possessable’ objects which are often found 
in other adventures. A quick glance at the attributes will give 
you an idea of how well you are doing and which areas, if any, 
you are weak on. 


The routine simply takes one away from the strength attribute 
and then displays the attributes. If the strength is equal to zero 
then the program jumps to the ‘lose’ routine situated at 2910 
onwards. 

720 REM*XXATTRIBUTESKx 

740 M(C1)=M(1)-1:5 IF M(1)=@ THEN 2910 

75@ PRINT"STRENGTH": INT(M(1)) 

760 PRINT"MONEY"sM(2) 

774 PRINT"MAGIC"SM(Z) 

78@ RETURN 


The ‘possessions’ routine is a little more involved. Line 790 
decides if an object is going to appear and if so, chooses one 
of the five available objects. The lines from 819 to 85@ describe 
the particular object chosen. 

79@ TF SND(1@)>8 AND B<>1 AND B¢<>15 AND 

8<>2@ THEN FS=RND(S):sGCTO 814 

B®® RETURN 

81 IF PS=1 THEN FRINT" AN OLD GLASS BO 

TTLE IS WITHIN REACH. IT IS COVERED IN C 

OBWERS" 

820 IF PS=2 THEN FRINT" HERE IS A LARGE 
OAKEN CHEST. A WEIRD SIGN IS CARVED ON 
ITS LED." 

820 IF PS== THEN FRINT" A VELLUM PARCHM 

ENT BOOK LIES BY YOUR FEET." 
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84@ IF PS=4 THEN FRINT" A GCLD LOCKET O 

N A CHAIN IS CLOSE TO YOU.” 

85@ IF PS=5 THEN PRINT" BEFORE YOU IS A 
80x OF EXOTIC FRUIT" 

B4@ REM&*XxXxPOSSESSTIONS xxx 


The next two program lines accept the player’s decision to 
open the particular object or not. If you’re brave and decide to 
open the object, then there is a three in ten chance of an Orc 


jumping out and severely mauling you. This chance elementis 
handled by line 890. 


The rest of the routine is concerned with printing out and 
altering the attributes of the player according to which object 
has been safely opened. The descriptions are quite detailed 
and add a little extra realism to the game. As opposed to 
having a large pause loop, | chose to let the player press a key 
to continue. This is handled by lines 958 and 960. 


870 INPUT"DO YOU WANT TO OPEN IT": 0F¢ 
S86 PRINT: IF LEFTS(OP#,1)9<>"Y" THEN RETIJ 
RN 

890 IF RND(1@)>7 THEN PRINT"AN ORC, THE S 


ERVANTS OF THE BLACKENID, JUMPS QUT AND 
ATTACKS YOU.IT DISAPPEARS AFTER A STRUGG 
LE LEAVING YOU WEAK AND TIRED. ":M(1)=M¢ 
1)-(M(1)/4):PS=0 

900 IF PS=1 THEN FRINT"A LARGE CLOUD OF 
SMOKE APPEARS, IT’S SULPHUROUS ESSENCE G 
IVES YOU NEW STRENGTH AND LIFE":M(1)=M 
(1)+e8 


919 IF PS=2 THEN FRINT"OH JOY OF JOYS! M 
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UCH TREASURE IS CONTAINED IN THE CHEST 
- YOU ARE A RICH MAN"2M(2)=M(2)+Z25+RND ( 
15) 

920 IF PS=2Z THEN FRINT"IT CONTAINS & POW 
ERFUL SPELLS. "2M (2) =M(2Z)+6 

92@ IF FS=4 THEN FRINT" IT HAS A SMALL P 
ORTRATT OF THE BEAUTIFUL PRINCESS CAROLT 
NE DE MOSELLE. IT IS QUITE VALUABLE. ": 
(2 =M(2)4+18 

94@ IF FPS=5 THEN FRINT"YOU ARE SC TEMPTE 
D THAT YOU EAT SEVERAL. THEY ARE DELICIO 
US AND DO NO HARM BUT ONLY ADD TO YOUR S 
TRENGTH. ":M(1)=M(1)4+12 

950 PRINT: PRINT" XkKXXPRESS A KEY TO CONTI 
NUE KKK" 

96@ IF INKEYS="""THEN 96@ ELSE CLS:RETUR 
N 


LOCATIONS 


The most important part of any adventure is to include a 
number of different locations, for without locations to move 
between there would be no exploration and little discovery 
(two elements that are vital to an entertaining adventure). 


More difficult than thinking up location descriptions, is 
formulating some system of logic between each location and 
its exits. The adventures in this book show you several 
particularly versatile ways of constructing room logic. ‘The 
Dark Forest’ uses one of these systems. 


If you look through the ‘initialisation’ section, you will notice a 
large amount of data that is being read into an array, Z. There 
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are five numbers for each location. Let’s examine the third set 
of numbers, ie. the date for location number ‘3’. The data is as 
follows: @, 10, 4, 2, @. The last number is used later for 
indicating whether a monster is present in the location or not, 
so at this stage in the program every fifth number is a zero. The 
first four numbers relate to location numbers. The first piece 
of data gives the number of the location if the player goes 
north from location ‘3’. In the location we are at present 
discussing, location ‘3’, the player’s way in that direction is 
blocked, ie. there is no exit, hence the first location number is 
zero. If the player wishes to move south, then the second piece 
of data gives the location he or she would end up in, location 
‘10’. The third item in the data list gives the location if the 
player goes east and the final piece is for when the player goes 
west. If you look at lines 150 to 180 in the control loop, you will 
see how this information is interpreted when the player wishes 
to move. Line 158 simply means ‘If the player requests to go 
north and the first item of data in the present location is not 
equal to zero (is not a blocked exit) then the first piece of data 
in the player's present location will now become the number 
of the player’s new location. The player’s location is always 
stored in the variable, B’. 


If you find this a little involved, then consider the simple 
example below. As you can see, there are three rooms and an 
‘outside’ (labelled location ‘1’). 


The data for the four locations would be as follows: 


Location ‘1’ 0,0,0,2 
Location ‘2’ 0,4,1,3 
Location ‘3’ 0,0,2,0 
Location ‘4’ 2,0,0,0 


Location ‘1’ has a single exit to the west, location ‘2’ has exits 
to the south, east and west, location ‘3’ has an exit to the east 
and location ‘4’ has an exit to the north. 


From this it can be seen how a full logic system can be 
developed. To help you, it is a good idea to remember the 
locations as simple rooms with open doors in certain 
directions. When designing your adventure, try to map out 
your locations on a piece of paper. You will then find it easier 
to code into a data list and you will also have at your disposal, 
a complete map of your adventure which you will find useful 
when testing the various parts of the adventure or when a 
friend is playing the game and comes across a troublesome 
problem. 


Using this system, many extra options can be attached. Up 
and down movement could be allowed with two extraitems of 
data for each location needed. The extra data would simply 
signify which location the player would end up in if he or she 
went up, in one case, or down. 


Using a similar feature to the monster feature in this game, it 
would be possible to assign an extra figure that places the 
objects in fixed positions at the start of the game so that each 
item would only appear in one location. The actual 
possibilities with this logic system are very wide indeed. 


Once the player has moved to a new location, the computer 
ON...GOSUBs to the line number dealing with that location. 
In this adventure, the computer does not just print the name of 
the location but if necessary, sets up a high resolution screen 
picture or waits for a specific piece of action that can only 
happen in that particular location. This is a good format for the 
first time adventure programmer to adoptas it allows plenty of 
flexibility. Also, if you wish to add an extra feature at some 
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time, then you will have little of the program to change to do 
so. 


Below is the section of the program which covers the detail of 
each location. Most are self-explanatory, so it is only 
necessary for me to give details if the location is particularly 
complex. 


970 REMX*LOCATIONS*k 

982 PRINT" YOU ARE IN A SMALL CLEARIN 
G WITHIN THE DARK FOREST. YOU CAN PRCCEE 
D IN ANY DIRECTION THAT YOU WISH" 

990 RETURN 


10®@® PRINT" YOUR VIEW FROM CAKRIDGE HIL 

L IS MAGNIFICENT, IN THE DISTANCE YOU C 

AN SEE GRENDAL THE HERMIT’S !ODG 

—" 

1010 RETURN 
This location was really an afterthought that | could not resist 
adding. The memento at the bottom of the well can come in 
extremely useful. This part of the adventure involving the code 
on the memento is the hardest piece for the adventurer to 
solve. The graphics are quite amusing as well! 

1926 PRINT" YOU HAVE FOUND YOURSELF IN 

A PEACEFUL, LUSH FIELD." 

1020 PRINT: PRINT" THERE IS A SMALL EMPTY 

WELL NEXTTO YOU. DO YOU WANT TO GO DOWN 

IT. (Y/NO"s INPUT OS 

1049 IF Q$="N" THEN PRINT" ALRIGHT, STA 

Y IN THE PEACEFUL FIELD THEN. "=RETURN 

1056 IF RND(2)<2 THEN 1120 
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1066 FMODE 2,1:FCLS:SCREEN 1,0:CIRCLE(12 

8,40) ,20 ; 

107@ CIRCLE (119,32), 2: CIRCLE (137,22) .2:C 

IRCLE (128, 40), 2: CIRCLE (128,55) ,9.4.1..5.5 
9 

1986 COLOR 2,2:LINE(@,@)-(4@,192),PSET.& 

e 

1990 LINE (215,9)-(255, 192) ,PSET, BF: SAINT 
(45,19@) 2.2 

11@@ FOR T=1 TO 10@@:CLS:FRINT:PRINT" AH 
WELL, I THOUGHT IT WAS EMPTY": PRINT"HOW 

SILLY OF ME!":M(1)=10:M(2)=10:M(%) =1:B=1 
1110 PRINT:PRINT" YOU DO MANAGE TO GET 

QUT, BUT IN DOING SO LOSE MUCH MONEY AND 
STRENGTH.":GOTO 1150 

1120 PLAY"L1804GDFEBRACEBRB": PRINT: FRINT"A 
SMALL NICHE IN THE WELL WALL HIDES A G 

OLDEN FIGURE.THE RAM OFANAG. " 

1130 PRINT" INSCRIBED ON THE UNDERSIDE 
IS THE MYTHICAL WORD grandos. THE FIGUR 

© IS QUITE VALUABLE. LOOK AFTER IT." 
1140 PHteM(Z)=M (2) 412M (2) =M (2) +5 

115@ PRINT: PRINT" X**xPRESS A KEY TO CONT 
TINUE KK" 

114@ IF INKEYS="" THEN 116@ ELSE GOSUB 7 

ZO: RETURN 

117@ PRINT" THE BARCN’S RESIDENCE IS 

NEAREY. YOU CAN HEAR BEAUTIFUL MUSIC 
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SEING PLAYED...." 

118@ PLAY"NZLSELSGLBAL7EBL 1 20 4C#LB02BL6AL 

SF#L7DLi2ELSF#" 

1190 RETURN 

12@@ PRINT" YOU ARE IN A DAMP HUT WITH 

A POORLY THATCHED ROOF. A MUSTY SMELL 

LINGERS AND THERE IS AN ADJOINING ROO 

M TO THE RIGHT." 

1210 FOR T=1 TO 20@0:NEXT T 

1220 PLAY"LBO4CO2CO4C02C04C02C" 

1230 PRINT"WHATS THIS? A SMALL HIDDEN DO 

OR IN FRONT OF YOU (N)." 

1240 RETURN 

1250 PRINT'"AROUND YOU IS A SPARSELY FILL 

ED STOREROOM. THIS IS A DEAD-END." 

126@ RETURN 

1270 PRINT" YOU STAND IN THE MIDDLE OF 
BERRY HAMLET. IT 1S VERY QUIET, THE F 

LACE SEEMS deserted" 

1280 RETURN 

1290 PRINT" YOU ARE ON A GRASSY HILL 
SLOPING DOWNWARDS INTO A VALLEY. A SM 

ALL HAMLET LIES AT THE NORTHERN END. 


12@0 RETURN 


The following location, the woodcutter’s hut, waits for you to 
enter a code word. It takes the first five letters of whatever you 
enter and compares it with a string holding a number of 


24 


keywords. If the random number is in your favour and you 
have entered one of the code words correctly, then you will be 
allowed to enter the hut. A much more sure way to enter the 
hut is to find the special treasure which will give you the code 
word which works every time. Each time you play the 
adventure, you will have to collect the treasure for the code 
word to work. If you get the word wrong or you are not 
carrying the treasure, you are chased away. 

1710 PRINT" YOU ARE STANDING OUTSIDE A 

WOODCUTTERS HUT. ENTER AT YOUR OWN P 

SRIL":sPLAY"OL1L4DEL12CDC" 

1226 FRINT:FPRINT"“TYPE IN THE RIGHT CODE 

TO ENTER THE HUT": INPUT ES:SFRINT 

1FzQ@Q FS="TVORYMAGICSILVEGRENDRUFUSD IAMOB 

ERRYBARON" 

12740 FOR T=1 TO RND(8) = FFS=MIDS (FS, TAS-4 

2D) :NEXT T:IF LEFTS(E%,5)=FFS OR (ES="DRA 

GON" AND F=1>2 THEN 1240 

1756 PRINT" YOQU USED THE WRONG CODE. YOU’ 

YE BEEN CHASED AWAY BY THE WOODSMANTO AN 

OTHER PART OF THE FOREST": B=RND(2)+12M(1 

.=M(1)-8: RETURN 

1266 FPRINT"CORRECT CODE! ENTER THE HUT B 

Y HEADING *N’?":PLAY"L401CP4DF4EP4":RETU 

RN 
The next location, location ‘10’, is the prison which the Black 
Knight throws you into. The first few lines up to line 1420 
draws a Hi-res picture, and then the rest of the routine gives 
you some textual details of your predicament and offers youa 


method of escape. | will not tell you any more about how to 
escape - that’s up to you to find out. 
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1270 NS="N":PLAY"L401CP4DF4EP4": RETURN 

1380 PMODE 4,1:PCLS:SCREEN 1,1 

1290 LINE (9, 2@)-(12@,70) ,.PSET, BF:LINE(? 

8,30)-(104, 79) , PRESET, BF 

1400 LINE (114, 2@)-(120, 70) , PRESET. BF 

1410 LINE(®,194)-(2@,174) .PSET: LINE (255, 

194)-(225,174) ,PSET 

1420 DRAW"BMZ@, 0: D174R19SU174" 

142@ FOR T=1 TO 250@:NEXT T 

144@ CLS @:PRINT @ 162,"YOU FELL INTO A 

BEAR TRAP AND WERE CAPTURED BY THE BLACK 
KNIGHT WHO HAS IMPRISONED YOU. " 


1450 PLAY"VZ1L602GFEEQ2GFEEOIL4GFEDCCC":SRINT 


1460 INPUT"WHAT NOW";NS: IF NS="GRANDOS" 
THEN PRINT"CLOSE, BUT WRONG, YOU SHOULD # 
AVETHOUGHT ABOUT THE FIGURE*S NAME": FRIN 
T:PRINT"THE ram OF anag....THE anag ram" 
2470 IF NS="DRAGONS" AND F=1 THEN PMODE 
3,i:POLS:SCREEN 1,@:FOR T=1 TO 8:CLS T:S 
OUND 25x*T,4: NEXT 

1486 IF NS="DRAGONS" AND F=t THEN FRINT 
@ 232,"THE MAGIC WORD! ":PRINT @416, "YOU" 
RE FREE AGAIN, BUT YCU LOST THE GOLDEN F 
TGURE": B=1;F=0: RETURN 

1490 FRINT:FRINT" you failed and are impr 
isoned forever.":END 

1500 GOTO 1780 

1516 RETURN 
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The location described from line 1520, is just one of anumber 
of routines that draw a high resolution display. A chapter later 
in this book explains how high resolution pictures can be 
incorporated in your own programs. 


1520 PMODE Z,1:FCLS:SCREEN 1.0 

1520 CIRCLE (7,110),80,2.0.6.0.5.1 

S4@ CIRCLE (200, 11@),100.27.0.7.0.6,2 
1S5@ LINE(@,110)-(255.110), FSET 

15460 PAINT(180,18@).2.4 

1570 FAINT(@.@).2.2 

158@ CIRCLE (20, 270), 10,2: PAINT (20, 20),2.2 
59 FAINT (190, 1@0).4,2 

1400 FOR T=1 TO 2@@@:NEXT T:CLS:GOSUB 72 


1610 FRINT"YOU ARE ON THE BARON’S LAND. 

RE CAREFUL. IN THE DISTANCE. LIE THE S 

ACRED HILLS OF ANGELSAREK" 

1620 RETURN 

1620 FRINT" THE DARK FOREST SURROUNDS Y 

MU. IT*S GROTESQUE FORMS SEEM TO MOVE 

(LOSER. THIE FLACE IS evil" 

1464@ FOR T=45 TO 1 STEF-F:SOUND T,7:NEXT 
T 

1650 RETURN 

1660 FRINT"YOU ARE BY THE SIDE OF A SMAL 

_ STREAM. YOU CAN FOLLOW THE RIVER BANK 
BOTH EAST AND WEST OR YOU CAN RETREAT N 

ORTH" 
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1676 RETURN 
1686 FRINT" A TWISTING TRACK CUTS THROU 


GH THE TANGLED BUSHES.THIS IS WILD BOAR 
fOUNTRY." 


1696 RETURN 

17@@ PRINT" YQU ARE BESIDE A FAST—-FIOWI 
NG RIVER. A BRIDGE GUARDED BY A GREED 
¥Y TROLL LIES TC THE SOUTH. YOU MUST GUES 
S THE FEE THAT THE BEAST CHARGES TO CROS 
su on 

1710 INFUT F:IF F<RND(40)+20 THEN B=Z (B, 
1):PRINT"HE SCORNS YOUR TINY SUM AND 
CHASES YOU AWAY": RETURN 

1720 IF M(2)-F<@ THEN FRINT"YOU GUESSED 
RIGHT.BUT CANNOT PAYTHE TOLL. BE ON YOUR 
WAY, FRIEND": RETURN 

1730 PRINT: PRINT" THAT IS CLOSE ENOUGH. C 
ROSS NOW." 

1740 M(2)=M(2)-F 

175 RETURN 


The above piece of code deals with a vital bridge location. If 
the adventurer wishes to complete the adventure, he or she 
must find some way across this bridge. If the player offers the 


wrong amount of payment, he or she is chased away by the 
troll that guards the bridge. 


1760 PMODE 2,i1:FCLE:SCREEN 1, 
1770 DRAW" BM, 190; CORSOU7@R4SDSRSUSREDZER 
SOU1OR4OD 1 @RIOUZSREDERSUSRSD7OR75SL245" 
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1780 DRAW" SM1OZ, 100; UPO@RZUZRZUZRZUZR1SD2 
R2DORZD2R2D20" 

179@ FAINT (9@,90).4,2 

18@® FAINT (@,).3,2 

41810 LINE (10%, 19@)-(88,194) ,PSET 

1820 |LINE (12%, 10@)-(148,194) FSET 

1826 PAINT(@,120).2.2:PAINT (255,120),2,2 
184@ FOR T=1 TO 20@@:NEXT T:CLS:GOSUB 72 


1850 FRINT"YOU SEE THE MYTHICAL CASTLE O 

F DIAMONDS. DO NOT BELIEVE YOUR EYES, 
WHAT YOU SEE BEFORE YOU IS AN ILLUSIO 

N CAST BY THE MOST FOWERFUL CF ALL MAGIC 
IANS. THE WARLOCK OF THE DARK FOREST." 
1860 FLAY"FP1C1L1®e0CDEFGGGFFEEDDCCCCCC" 
1870 RETURN 

1880 FRINT“ BEFORE YOU LIES THE MAGNIFICE 

NT WATCH TOWER OF FENDRAGON, A SFPLEN 

DID GOTHIC MONUMENT. " 

1896 FPLAY"D4L4CEDFEGL 1 2ABABBA" 

19@0 RETURN 

1910 PRINT" YOU ARE AT THE ENTRANCE TO A 

MYSTERLOUS CAVE. THE SUN ALWAYS SETS 

TO THE FIGHT OF THE CAVE." 

1920 RETURN 

193@ PRINT" FROM YOUR FOSITION IN A SMA 
LL MARKET SQUARE, YOU CAN SEE SOME STOCK 
S AND A PILLORY A REMINDER OF WHAT WILL 
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HAPPEN IF YOU FAIL."" 
1940 RETURN 


THE FINAL CONFRONTATION 


The adventurer has crossed the bridge and has found the way 
into the cave. There the player faces the Creature, the final 
hurdle to overcome. This part of the program puts the 
adventurer in a final battle where his or her attributes are 
tested against the Creature’s. 


Lines 1960 to 2180 announce the Creature’s arrival and draw 
a picture of it on the high resolution screen, Pmode 4,1. Line 
217@ plays the high warning notes within a loop, eight times. 


Lines 2200 to 2240 then give the adventurer with an attribute 
less than the random figure, R, a chance to make an escape. 
If the timer is less than 250 when a key is pressed then the 
player is taken back to location ‘14’, over the other side of the 


bridge. 
1956 REM*4*xXEND GAMEK4** 
1960 PRINT:PRINT"IT’S VERY DARK INSIDE T 
HE CAVE" 
1970 FOR T=1 TO 10@0:NEXT T:PRINT"YOU HE 
AR A LOUD NOISE" 


1980 PLAY"VZ1L25503BAGFEDCOZBAGFEDCO1 BAG 
FEDC" 


1990 PRINT" IT’S TH-TH-THE C-C-C-CREATURE 


2000 FOR T=1 TO 10@0:NEXT T 

2016 PMODE 4,1:FCLS:SCREEN 1,1 

2020 R=RND(8) 

203 CIRCLE (120,100) ,40,1.0.8,9,9.5 
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2049 LINE (90, 100)—(170, 100) ,PSET 

2050 PAINT(10@,110),1.1 

2660 LINE (90, 115)—(170, 115) , PRESET 

2070 FOR X=1@® TO 170 STEF 1@ 

2080 LINE (X,100)—-(X,140) , PRESET 

2090 NEXT X 

219 CIRCLE (90,50).15,1.0.6 

211@ CIRCLE (165,56) .15,1,0.6 

2120 CIRCLE (90,5@),5:CIRCLE(1465,50),5: 

21Zz@ DRAW"EM120, 70; DBERZ@UB" 

214@ FAINT (9,5@).1.1:PAINT(165,50),1,1 

2150 PRESET (90,50) : PRESET (165,50) 

216@ FOR M=1 TO 8 

2170 FLAY "V2105SL24@GABGABAGABAGABAGABAAER 

AAGG" 

2180 NEXT M 

2190 CLS © 

2200 FRINT"IF ANY OF YOUR ATTRIBUTES ARE 
LESS THAN ";R;" THEN RUN AWAY! ! ( 

PRESS A KEY)" 

2210 TIMER=0 

2220 IF INKEYS<>"" AND TIMER<25@ THEN PR 

INT @ 22@,."YOQU JUST MADE IT! YOU RUN BAC 

K QVER THE BRIDGE.":8=14:GOTO 250 

2220 IF TIMER<25@ THEN GOTO 2220 

2740 IF M(1)<R OR M(2)<R OR M(Z)<R THEN 

CLS:GOTO 291@ 
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The battle now begins in earnest. Firstly, the Creature’s attri- 
butes are given values. Notice how two of the attributes have a 
very good chance of being above the adventurer’s starting 
values. The money that the adventurer starts with has a good 
chance of being higher than the Creature’s but it has to be 
remembered that the adventurer has to pay a large proportion 
of this amount over to the greedy troll at the bridge. Therefore, 
the adventurer, after several attempts at defeating the 
Creature, will realise that he or she has to move around the 
adventure a good deal more to gain the extra strength, wealth 


and magic required to be a reasonable opponent for the final 
confrontation. 


2250 FPRINT"LET THE FIGHT BEGIN..... om 
2260 PLAY"L402EFC":CLS 

2270 DIM K(z) 

2280 K(1)=RND (SO) +10 

2290 K(2)=RND(45)+15 

2200 kK (2) =RND (12) 


The battle itself consists of a loop where each of the three 
attributes of the Creature and the adventurer are tested. The 
screen is cleared, the value of the attributes under battle are 
displayed and the battle begins... 


One point is deducted from each of the attributes unless a 
certain number is generated by the RND function. If the 
number three is generated by the RND function, then the 
program jumps a line and nothing is deducted from the 
player's attribute. If the number seven occurs, the same 
applies to the Creature’s attribute. Once this is done, the 
computer displays a simple message. The effect obtained by 
the several inverse letters in each line (on the printout, these 
are shown as lower case letters) is fine to use in any situation, 
not just the one illustrated here. 


This process continues until either the player’s or the 
Creature’s attribute level reaches zero. When this happens the 
program goes to a routine that prints up who has won, pauses 
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the program and adds one to the ‘round win’ counter. If this 
counter reaches two then the battle has ended and the 
program goes to the appropriate ‘end game’ routine. Thereare 
two of these short ‘end game’ routines, one for the player and 
one for the Creature. 

2216 FOR Y=1 TO 2 

23290 FOR T=1 TO 16@0:NEXT T 

2220 CLS:FRINT @ 115. "ROUND"; Y 

2240 FRINT @ 258, "human"smM(y) 

2250 PRINT © 274, "“creature":K(Y) 

2260 IF RND(1@)=2 THEN 2280 

2270 MY =MCY)-1 

2280 IF RND(1®)=7 THEN 2400 

2F7O KCYI EK CY) -1 

2400 IF M(Y)<1 THEN 2560 

241@ IF K(¥)<1 THEN 252 

2420 FLAY"L246N1CFBO2ZEAD0ZDGO4L" 

2420 PRINT @ 290, "batTLE STARTS" 

2440 FLAY "L2SS0=BAGFEDC" 

2450 FRINT © 290, "BATtle STARTS" 

24660 FLAY"O2BAGFEDC" 

2470 FRINT @ 790, "BATTLE staRTS" 

2480 FILAY"OC1RAGFEDC" 

2490 FRINT @ 290, "BATTLE STArts" 

2500 FLAY"O1IDCDC" 

25160 GOTO 2240 

2520 FOR T=1 TO 10@0:NEXT T 

2520 CLS D:FRINT © 10@,"YOU WIN THIS ROU 

ND"; 
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2540 PLAY"L403FGAEE" 

2550 V=V+i:IF V=2 THEN 219@ ELSE NEXT Y 
2560 FOR T=1 TO 10@6:NEXT T 

2570 CLS 4:PRINT @ 100,"THE CREATURE WIN 
S"5 

2586 PLAY"L401FGAEE" 

2590 W=W+i:IF W=2 THEN 2910 

260® NEXT Y 

2610 END 


WIN OR LOSE 


When it comes down to it, one of these two endings will 
happen to you. An ending to a game is as important as any 
other part of the game. If the players fail, you must give them 
the enthusiasm to have another try. If they win, well, they have 
worked hard and deserve a little more than a ‘Well Done’ 
message and the game stopping. It would be unfair to end the 
game in such a way that the player finds it an anti-climax. At 
the other extreme, you must not get so involved with a ‘win- 
ning’ ending (that may be only seen once every nine or ten 
games) that it starts to assume giant proportions and starts to 
take up too much valuable memory space. 


| like to think that my endings have struck a balance between 
the two extremes. 


2916 REM*XXEND OF GAMEXkx 
2920 FOR T=1 TO 15:FRINT" " 
2930 NEXT T 


2940 PRINT" YOU HAVE BEEN BEATEN" 
2950 GOSUR 2150 


2960 PRINT" YOUR STRENGTH COULD" 
2979 GOSUR 2150 
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2980 PRINT" NOT HOLD OUT AS YOU " 
2990 GOSUB 21590 

2000 FRINT" TRIED IN VAIN TO FIND" 
70190 GOSUBR 7150 

2020 PRINT" THE SECRETS THAT THE" 
20230 GOSUB 2150 

2040 PRINT" DARK FOREST HOLDS..." 
2050 FOR C=1 TO 10 

2060 GOSUB 2158 

2070 NEXT C 

T@Bo GOSUB 215@ 

2090 PRINT" BUT DO NOT GIVE UP.MORTAL" 
21400 GOSUB 2150 

ZLi10@ FRINT" FOR YOU MAY STILL SUCCEED." 
2120 GCSUB 2150 


TLzZ@ FRINT" TO TRY AGAIN FRESS A KEY" 
2140 IF INKEYS=""" THEN GOTO 721460 ELSE RU. 
N 


My ending if you lose the game is quite simple, but it does 
tempt the player into having another go. Having the screen 
scroll up with the crunching sound is performed by a separate 
subroutine within the main routine. This short subroutine is 
shown below. 


2150 FRR T=1 TO 5@O:NEXT T 
2160 FPLAY"VZ1L25501GEC" 
2170 PRINT" " 

3180 RETURN 
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My ‘winning’ ending is alittle more complex. A text message is 
first printed up on the screen, followed by the player being 
given an ‘official’ title. The game finally ends with a con- 


tinuous high resolution display using the Dragon 32's 
powerful LINE command. 


3190 REM*XAXYOU WINKKS 
32006 CLS: FLAY"O04L12CLi@DLi2CL4D" 


Z21@ PRINT "XXXKXKXKHKWELL DONE KX KXKKKKK 
akx" 


3220 PRINT: PRINT" YOU HAVE CONQUERED 
THE" 
3230 PRINT" dark forest" 


3240 PRINT: PRINT" YOU OUTWITTED YOUR E 
NEMIES, EXPLORED THE FOREST AND FOUND 
THE CREATURE. " 

3250 PRINT: FRINT" YOU HAVE RFID THE COUN 
TRY OF A GREAT THREAT AND YOU SHALL BE 
REWARDED. " 


3266 PRINT: INFUT"WHAT IS YOUR NAME"; NAME 


¢ 


> 


2270 fMLS:FOR T=1 TO 15:FPRINT: NEXT: FRINT" 
ARISE SIR “sNAMES: PRINT" OCF D 

RAGONTA" 

22860 FOR T=1 TO 15: FRINT: PLAY"O4L2OCEFFG 

“SNEXT T 

2290 FOR T=1 TQ 20@®:NEXT T 

3200 PMODE Z.1:FCLE:SCREEN 1,6 

2210 FOR T=46@ TO 155:LINE(T.T-2@) -—(250-T 

,220-T) .PSET.8 
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2220 LINE(T. T-20)-(250-T, 220-T) ,PRESET.B 

ZZE@ COLOR RND(4).RND(4):SOUND RND(1@0)+ 

12@.1:NEXT T 

2240 PCLS: SOUND RND(200@)+20.1: GOTO 22710 
We have now completed an analysis of a complete adventure, 
phew! As we have already discussed, there is no one definitive 
style of adventure so in the next chapter we consider a 


different but no less popular type of adventure which provides 
quite a marked contrast with ‘The Dark Forest’. 


Here now, for your delectation, is the complete listing of ‘The 
Dark Forest’. Good luck and above all, have fun! 


10 REM*k*x* (CC). CLIVE GIFFORDK*xx 

20 REMXX*KKTHE DARK FORESTAXXk*k 

20 REM**A MEDIEVAL ADVENTURE. k* 

4O REM KK KX KEK AK KE KKK KK EK KEKE 

S®@ GOSUB 2620 

60 CLS @:FRINT @ 166,"THE DARK FOREST"; 
70 PRINT @ 195,"FPRESS ANY KEY TO START": 
80 SOUND 260,1 

90 IF INKEYS=""" THEN 80 

19@ PRINT @ 2=27,"YOU HAVE DARED TO ENTER 


11@ PRINT @ 361."GOOD LUCK"; 

120 FOR T=1 TO 19@@:NEXT T 

12@ FOR X=1 TO 15@@:NEXT X:CLS RND(9)-1 
14@ SOUND 18@.1:GOSUBR 720:PRINT 

15@ IF NS="N" AND Z(B,1)<>@ THEN B=Z(E,t 
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16@ IF NS="S" AND Z(B,2)<>@ THEN B=Z(B.2 
) 

170 IF NS="E" AND Z(B,3)<>@ THEN B=Z(E,= 
) 

18@ IF NS="W" AND Z(8.4)<>0 THEN B=Z (EB, 4 
) 

19@ IF NS<>"R" THEN 220 

200 CS=INT((B+1@)/10):PRINT" O.K. YOU Cc 
AN SLEEP HERE BUT ITWILL COST YOU";CS;"C 
OIN/S FOR EVERY HOURS UNINTERRUPTED REST 
."sPRINT 

21@ INPUT"HOW MANY HOURS":H:IF H<i OR M¢ 
2)-(HkCS)<@ THEN PRINT" TRY AGAIN, SLEEPY 
HEAD!":GOTO 210 

220 M(2)=M(2)—(H¥CS) 2M (12 =M (1) +H: CLSS PRI 
NT @ 226,"ZZZZ":FOR T=1 TO 15@@kH: NEXT T 
:CLS:GOSUB 72@:G0TO 250 

22@ IF CHK=B THEN PRINT"cannot move in t 
hat direction":PLAY"LiG1C":60TO 260 

24@ CHK=B 

25 ON B GOSUB 980, 1000,1020.1170,1200.1 
250, 1270, 1290, 1210, 1780, 1520, 1620, 1660.1 
680, 1790, 176, 1880, 1910, 1930. 1950 

269 IF Z(B,5)<>@ THEN 200 

279 GOSUB 790 

280 PRINT: INFUT"WHAT NOW": NS:NS=LEFTS (NS 
= 0 

299 GOTO 120 
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3O@ REMKXMONSTER/FIGHT*x 

Z1i@ MN=Z(B.5):PRINT 

Z2@ IF MN=1 THEN FRINT"A BAND OF 1@ ROBE 

ERS SEIZE YOU.":E=40 

ZZ@ IF MN=2 THEN FRINT"YQU HAVE COME ACR 

OSS GRENDAL. THE HERMIT. YOU HAVE AWOK 

EN HIM HE IS NOT PLEASED. ":£=40+RND (15) 

Z4@ IF MN== THEN FRINT“SIR RUFUS OF GASC 

ONY ATTACKS...":E=20 

25@ IF MN=4 THEN PRINT“A FEROCIOUS BEAR, 

RAVENCUS FOR MEAT POUNCES. ":E=20 

Z6@ IF MN=5 THEN FRINT" YOU HEAR THE WAR 

CRY OF THE FEARLESS BLACK KNIGHT. ":E 

=A 

=7@ INPUT"WILL YOU FIGHT OR RUN"; FS: FS=L 

EFTS (FS, 1? 

ZB PRINT: IF ©$="F" THEN 410 

29@ IF SND(1@)}>4 THEN INPUT"WHICH DIRECT 

TON COWARD" :NS:M(1)=M(1)—-4:F RINT: GOTO 12 

) 

49@ PRINT"NO YOU MUST STAND & FIGHT' AS 

A FUNISHMENT FOR YQUR COWARDICE YOU LO 

SE 10 STRENGTH":M(1)=M(1)-10 

41 REMAXFIGHT** 

420 Z(B, 5) =0: RO=RND (19) 

4Z@ IF Z(RO.S)=0 THEN Z(RO,S)=MN ELSE GO 

TO 420 

44@ INPUT"WHICH ATTRIBUTE DO YOU WISH TO 
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FIGHT WITH":A 
IF AS="STRENGTH" THEN A=1 
IF A$="MONEY" THEN A=2 
IF AS="MAGIC" THEN A=Z:E=INT(E/1i@) 
IF A=1 AND M(1)<1 THEN Z2i@ 
IF A=2 AND M(A)<1 THEN PRINT" CANNOT 
MONEY":GCTO 440 


IF A== AND M(AI“1 THEN PRINT’ CANNOT 


USE MAGIC" 


CLS @:IF M(A)>6@ THEN DD=M(A)-E60:M(A 


FOR X=1 TO M(A)=sSET(X,12.8):NEXT X 
PRINT @ 4@,"THE BATTLE COMMENCES"; 
PRINT @ 128,"YOU"::PRINT @ 2e8, "ENEM 


FOR EX=1 TO E:SET(EX.22.MN):NEXT EX 
SOUND 1,12 
REMKXMAIN FIGHT LOOF** 


IF RND(7)}=4 THEN GCTO 608 
RESET (E, 22) sE=E-1 


60® SOUND 188,2 


TF RND(Z)=1 THEN GOT 62a 
RESET (M(A) . 12) 2M (AX =M (A) —1 
SOUND 16@,2 
IF E>® AND M(A)>@ THEN GOTO 27e@ 
IF M(AX=@ THEN GOTN 2916 
PRINT @ 22@,"YOU WIN!!! "5 
PLAY" L804CDEFGP4CDEFG" 
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48@ ER=RND (4@) : BV=RND (7? 

69@ IF BY<4 THEN PRINT @ 2Z86,"YOU GAIN": 

ERs "STRENGTH"; =M(1)=M(1)+ER+0DD 

7@@ IF BYV<7 AND BV?>= THEN PRINT @ 286,"Y 

SU GAIN"SER; "MCNEY UNITS": =M(2) =M (2) +ER+ 

DD 

7i@ IF BV=7 THEN ER=INT(ER/1@)+1:2FRINT & 
=B86,"YOU GAIN"sSER: "MAGIC SFELLS";:M(Z)= 

M(Z)+ER+DD 

720 FOR T=1 TO 150@:NEXT T:CLS:GOTO 250 

7=@ REMKXATTRIBUTESXx 

74M MCL) =M(1)-121F M(i>=@ THEN 2919 

75O PRINT"STRENGTH"; INT (M(2)? 

746@ PRINT'MONEY'"=sM (2) 

77@ PRINT“MAGIC"sM(Zz) 

788 RETURN 

79@ TF RND(1@)>8 AND Bé>i AND B<>i5 AND 

84320 THEN FS=RND(S):ECTO 818 

80®@ RETURN 

810 IF PS=1 THEN FRINT" AN OLD GLASS BO 

TTLE IS WITHIN REACH. IT IS COVERED IN C 

OBWERS" 

820 IF PS=2 THEN FRINT" HERE IS A LARGE 
OAKEN CHEST. A WIERD SIGN IS CAFVED ON 
it?s iLID. 

B20 IF PS== THEN FRINT" A@ VELLUM PARCHM 

ENT BOOK LIES BY YOUR FEET.” 

84@ IF FS=4 THEN PRINT" A GOLD LOCKET O 
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N A CHAIN IS CLOSE TO YOU." 

95@ IF FPS=5 THEN FRINT" S8EFORE YOU IS A 
BOX OF EXOTIC FRUIT" 

960 REMK*kxxXPOSSESSIONS£ xxx 

97@ INPUT"DO YOU WANT TO OPEN IT": OP¢ 
88@ PRINT:IF !EFTS(OPS,1)<>"Y" THEN RETU 
RN 

890 IF RND(1@)>7 THEN PRINT"AN ORC, THE & 
ERVANTS OF THE BLACKENID, JUMFS OUT AND 
ATTACKS YOU.IT DISAPPEARS AFTER A STRUGG 
LE LEAVING YOU WEAK AND TIRED. "2M(1)=M( 
1)-(M(1) 74) : PS=0 

90@ IF PS=1 THEN FRINT"A LARGE CLOUD OF 
SMOKE APPEARS, IT’S SULFHUROUS ESSENCE G 
IVES YCU NEW STRENGTH AND LIFE":M(1)>=M 
{1)+8 

91@ IF PS=2 THEN FRINT"OH JOY OF JOYS' M 
CH TREASURE TS CONTAINED IN THE CHEST 
- YOU ARE A RICH MAN"=M(2) =M (2) 4+Z25+RND ¢ 
15) 

92@ IF PS=2 THEN FPRINT"IT CONTAINS & FOW 
ERFUL SPELLS. "2M (2) =M (2) 46 

92@ IF PS=4 THEN FRINT" IT HAS A SMALL F 
ORTRAIT OF THE BEAUTIFUL FRINCESS CAROLI 
NE DE MOSELLE. IT IS QUITE VALUABLE. ":M 
(2) =M(2)4+1@ 

94@ IF PS=S THEN PRINT"YOU ARE SO TEMPTE 
D THAT YOU EAT SEVERAL. THEY ARE DELICIO 
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US AND BC NO HARM BUT ONLY ADD TO YOUR S 
TRENGTH. “":MC12=M(1)412 
95@ PRINT: PRINT"**#xPRESS A KEY TO CONTI 


NUE K*Xkx" 

96@ IF INKEY¢=""" THEN 96@ ELSE CLS:RETUR 
N 

°7@ REM*X*LOCATIONS** 

980 PRINT" YOU ARE IN A SMALL CLEARIN 


& WITHIN THE DARK FOREST. YOU CAN PROCEE 

D IN ANY DIRECTICN THAT YOU WISH" 

99@ RETURN 

14@® FRINT" YOUR VIEW FROM OAKRIDGE HIL 

L IS MAGNIFICENT, IN THE DISTANCE YOU C 

AN SEE GRENDAL THE HERMIT’S LODG 

Ee" 

161@ RETURN 

192 PRINT" YOU HAVE FOUND YOURSELF IN 

A PEACEFUL, LUSH FIELD." 

1@Z@ PRINT:PRINT' THERE IS A SMALL EMPTY 

WELL NEXTTG YOU. DO YOU WANT TC GO DOWN 
IT. (Y/N "2 INPUT as 

194@ IF QS="N" THEN PRINT" ALRIGHT, STA 

Y IN THE PEACEFUL FIELD THEN. ": RETURN 
105 IF RND(Z)<2 THEN 1120 

196@ PMODE =.1:PCLS:SCREEN 1,:CIRCLE(12 

8,40), 20 

167@ CIRCLE (119,22) .2: CIRCLE (127,22) .2:C 

TRCLE (128, 40). =: CIRCLE (128,55) .9,4,1,.6, 
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1686 COLOR 2,2:LINE(@.@)-(40,192) ,PSET,B 

F 

1090 LINE (215,@)~(255,192) , FSET. BF:FAINT 
(45,190) .2,.2 

1100 FOR T=1 TO 1@@@:CLS:PRINTsFRINT" AH 
«WELL, THOUGHT IT WAS EMPTY": PRINT"HOW 

SILLY OF ME!":M(1)=1@:M(2)=10:M (2) =1:B=t 
1110 PRINT:PRINT YOU DO MANAGE TO GET 

OUT, BUT IN DOING SO LOSE MUCH MONEY AND 
STRENGTH. ":GOTO 115@ 

1120 PLAY"L1S04GDFEBACERR":SRINT:FRINT"A 
SMALL NICHE IN THE WELL WALL HIDES A G 
MALDEN FIGURE, THE RAM OFANAG. " 

1120 PRINT" INSCRIBED ON THE UNDERSIDE 
IS THE MYTHICAL WORD grandos. THE FIGUR 
£ IS QUITE VALUABLE. LOOK AFTER IT.” 
114@ P=tem(Z)=M(Z)4i2M (2) =M (2) 45 

1150 PRINT: PRINT" &XKkKFRESS A KEY TO CONT 
TNUEX kK" 

1160 IF INKEYS="" THEN 1146@ ELSE GOSUB 7 
2: RETURN 

117@ PRINT" THE BARON’S RESIDENCE IS 

NEARBY. YOU CAN HEAR BEAUTIFUL MUSIC 

BEING PLAYED...." 

1180 PLAY" CZI_SELEELBAL7EBL 1 204CH#LEOZELSAL 

SF#L7DL12ELEFe" 

119 RETURN 
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12@@ PRINT" YQU ARE IN A DAMF HUT WITH 
& FONORLY THATCHED ROOF. A MUSTY SMELL 
LINGERS AND THERE IS AN ADJOINING ROO 
mM TO THE RIGHT." 
1210 FOR T=1 TO 26@O:NEXT T 
1220 FLAY"LBC4CO2CO4C02C04C02C" 
1270 FPRINT"WHATS THIS? A SMALL HIDDEN DO 
OR IN FRONT OF YOU (N>." 
1246 RETURN 
1250 FPRINT“AROUND YOU 1S A SPARSELY FILL 
ED STOREROOM. THIS IS A DEAD-END." 
1260 RETURN 
1270 FRINT" YOU STAND IN THE MIDDLE OF 
BERRY HAMLET. IT IS VERY QUIET. THE F 
LACE SEEMS deserted" 
1220 RETURN 
1290 FRINT" YOU ARE ON A GRASSY HILL 
SLOPFING DOWNWARDS INTO A VALLEY. A SM 
ALL HAMLET LIES AT THE NORTHERN END. 
12Q6® RETURN 
1210 PRINT" YOU ARE STANDING QUTSIDE A 
WOODCUTTERS HUT. ENTER AT YOUR OWN F 
ERIL":PLAY"Q1L4DEL12CDC" 
22260 PRINTSERINT" TYPE IN THE RIGHT CODE 
TO ENTER THE HUT": INFUT ES: PRINT 
1220 FS="IVORYMAGICSILVEGRENDRUFUSD IAMOR 
ERRYPBARON" 
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1240 FOR T=1 TO RND(8):sFFS=MIDS (FS, TX5—-4 

»o) :NEXT T: IF LEFTS(E%,5)=FFS OR (ES="DRA 

SON" AND F=1) THEN 1262 

125@ PRINT"YOU USED THE WRONG CODE. YOU?’ 

VE BEEN CHASED AWAY BY THE WOODSMANTO AN 

OTHER PART OF THE FOREST": B=RND(2)+12M(1 

2=M(1)-8: RETURN 

1360 FRINT"CORRECT CODE! ENTER THE HUT B 

Y HEADING ’?N’":PLAY"L401CP4DF4EF 4": RETU 

RN 

137@ NS="N":PLAY"L401CP4DF4EF 4": RETURN 

1280 PMODE 4,1:FCLS:SCREEN 1.1 

1390 LINE (90, 2@)—-(12@,70) ,PSET, BF: LINE (9 

8,20)-(104, 70) , PRESET. BF 

1400 LINE (114,30)-—(120, 70) , PRESET. BF 

14160 LINE (@,194)-(20,174) ,PSET:LINE (255, 

194) - (225,174) ,PSET 

1420 DRAW"BMZO, 0; D174R195U174" 

14230 FOR T=1 TO 25@0:NEXT T 

1440 CLS O:PRINT © 162,"YOU FELL INTO A 

BEAR TRAP AND WERE CAPTURED BY THE BLACK 
KNIGHT WHO HAS IMPRISONED YOU." 

1450 PLAY"VZ1L602GFEEO2ZGFEEQIL4GFEDCCC": 

PRINT 

14660 INPUT"WHAT NOW":NS: IF NS="(RANDOS" 

THEN PRINT"CLOSE, BUT WRONG,YOU SHOULD H 

AVETHOUGHT ABOUT THE FIGURE’S NAME":PRIN 

TEPRINT"THE ram OF anaq....THE anag ram" 
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1470 IF NS="DRAGONS" AND Fei THEN PMODE 
3,1:PCLS:SCREEN 1,@:FOR T=1 TO 8:CLS T:S 
QUND 2SXT, 4: NEXT 

1486 IF NS="DRAGONS" AND F=i THEN PRINT 
@ 222,."THE MAGIC WORD! ":PRINT @4146, "YOU’ 
RE FREE AGAIN, BUT YOU LOST THE GOLDEN F 
IGURE": B=1:F=@: RETURN . 
1496 PRINT:IFRINT"you failed and are impor 
cned fcrever.":END 

GOTO 1786 

RETURN 

FMODE 2,i:FCLS:SCREEN 1,2 

CIRCLE (70,11) ,80.2,0.6.0.5, 1 
CIRCLE (200,119) ,100,2,0.7,0.6,2 
LINE (@,110)~(255.119) , FSET 

FAINT (180,180) ,2,.4 

FAINT (@,0).2,2 

CIRCLE (20, 20) ,19, 2: PAINT (20, 20) ,2,2 
FAINT (190,190) .4,2 

FOR T=1 TO 2000:NEXT T:CLS:GOSUB 72 
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2) 

1610 FRINT"YOU ARE ON THE BARON’S LAND, 
BE CAREFUL. IN THE DISTANCE, LIE THE S 
ACRED HILLS OF ANGELSARK" 

1620 RETURN 

1620 PRINT" THE DARK FOREST SURROUNDS Y 
OU. IT*S GROTESQUE FORMS SEEM TO MOVE 
CLOSER. THIS FLACE IS evil" 
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144@ FOR T=45 TO i STEP-2:SOUND T.2: NEXT 
T 

165® RETURN 

1660 FPRINT"YOU ARE BY THE SIDE OF A SMAL 

i. STREAM. YOU CAN FOLLOW THE RIVER BANK 
BOTH EAST AND WEST OR YOU CAN RETREAT N 

ORTH" 

1670 RETURN 

148 FRINT" A TWISTING TRACK CUTS THROU 
fH THE TANGLED BUSHES.THIS IS WILD BOAR 
COUNTRY." 

1690 RETURN 

1740 FRINT" YOU ARE BESIDE A FAST-FLOWI 
NG RIVER. A BRIDGE GUARDED BY A GREED 
Y TROLL LIES TO THE SOUTH. YOU MUST GUES 
S THE FEE THAT THE BEAST CHARGES TC CROS 
sen 

1716 INPUT F:IF F<RND(40)+260 THEN B=Z(B, 
1):FRINT"HE SCORNS YOUR TINY SUM AND 
CHASES YOU AWAY": RETURN 

1720 IF M(2)-F<® THEN PRINT"YOU GUESSED 
RIGHT,BUT CANNOT FAYTHE TOLL. BE ON YOUR 
WAY, FRIEND": RETURN 


1726 FRINT:FRINT"THAT IS CLOSE ENOUGH, C 
ROSS NOW." 


1740 M(2)=M (2) -F 

1750 RETURN 

176@ PMODE 2,1:FCLS:SCREEN 1,0 
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177@ DRAW"BMO. 100; CORS@U7ORSDSRSUSRSD25R 
20U1OR40D 1 ORZOUSSR6DERSUSRSD7OR75L245" 
178@ DRAW" BM10%, 100: UZORZUZRZUZRZUZR15D2 
R2EDSRED2R2D2e" 
179 FAINT (99,98).4.2 
1800 FAINT(0,0),%.2 
1810 LINE (12, 19@)-(88,194) ,PSET 
1820 LINE (13%, 100) -(148, 194) , FSET 
1830 FAINT (@,120).2,2:PAINT (255.120) ,2,2 
1840 FOR T=1 TO 20@@:NEXT T:CLS:GOSUB 73 
) 
1850 PRINT’YOU SEE THE MYTHICAL CASTLE O 
F DIAMONDS. DO NOT BELIEVE YOUR EYES, 
WHAT YOU SEE BEFORE YOU IS AN ILLUSIO 
N CAST BY THE MOST FOWERFUL OF ALL MAGIC 
IANS, THE WARLOCK OF THE DARK FOREST." 
1860 PLAY"FL01L1@@CDEFGGGFFEEDDCCCCCC" 
1870 RETURN 
1880 FRINT"BEFORE YOU LIES THE MAGNIFICE 
NT WATCH TOWER OF PENDRAGON, A SPLEN 
DID GOTHIC MONUMENT. " 
189 FLAY"O4L4CEDFEGL12ABABBA" 
19@0 RETURN 
1910 PRINT" YOU ARE AT THE ENTRANCE TO A 
MYSTERICUS CAVE. THE SUN ALWAYS SETS 
TQ THE RIGHT OF THE CAVE." 
1920 RETURN 
19Z@ PRINT" FROM YOUR FOSITION IN A SMA 
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IL MARKET SQUARE, YOU CAN SEE SOME STOCK 
S AND A PILLORY A REMINDER OF WHAT WILL 

HAPFEN IF YOU FAIL."" 

194@ RETURN 

195@ REMA*XxXEND GAMEXXk 

1960 PRINT:PRINT"IT’S VERY DARK INSIDE T 
HE CAVE" 

1976 FOR T=1 TO 10@0:NEXT T:PRINT"YOU HE 
AR & LOUD NOISE" 

1980 PLAY"VZ1L25507BAGFEDCO2BAGFEDCO1 BAG 
FEDC" 


199@ PRINT"IT’?S TH-TH-THE C-C-C-CREATURE 


2000 FOR T=1 TO 1000:NEXT T 

2010 PMODE 4,1:FCLS:SCREEN 1,1 

2020 R=RND (8) 

2020 CIRCLE (120,100) ,40,1,9.8,0,9.5 
2040 LINE (9@,100)-(17@, 100) .PSET 
2050 PAINT(100,110),1,1 

2060 LINE (90, 115)-(170, 115), PRESET 
2070 FOR X=10® TO 17@ STEF 10 

2080 LINE (X,100)~(X,140), PRESET 
2090 NEXT X 

2100 CIRCLE (90,50) .15.1,@.46 

2110 CIRCLE (165.50)?,15,1,0.6 

2120 CIRCLE (90,50) ,5:CIRCLE (165,50) 
2130 DRAW"BM12@, 70; DBBRZe@UB" 


awe 


21460 PAINT (98,560),1,1:PAINT(165,50),1,1 
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2150 FRESET (90,50) = FRESET (165,50) 

216@ FOR M=1 TO 8 

2176 FLAY"VZ105L24@GABGABAGABAGABAGABAAE 

AAGG" 

2180 NEXT M 

219% CLS © 

220 FRINT'IF ANY OF YOUR ATTRIBUTES ARE 
LESS THAN "3Rs" THEN RUN AWAY!! ¢ 

PRESS A KEY)" 

2216 TIMER=0 

2220 IF INKEYS<>"" AND TIMER<250 THEN PR 

INT @ 22@,"YOU JUST MADE IT! YOU RUN BAC 

K OVER THE BRIDGE.":B=14:GOTO 250 

22230 IF TIMER<25@ THEN GOTO 2220 

P2A® IF M(1)<R OR M(2)<R OR M(3)<R THEN 

MLE:GOTO 2918 

2250 FRINT"LET THE FIGHT BEGIN..... "= 

2260 FILAY"L40ZEFC":CLS 

2270 DIM KS) 

2280 K(1)=RND (S50) +10 

2290 K(2)=RND (45) 415 

2200 K(3) =RND (12) 

2210 FOR Y=1 TO 3 

2220 FOR T=1 TO 10@@:NEXT T 

2226 CLS:PRINT @ 115, "ROUND";Y 

2344 PRINT @ 258, "human"3MCY) 

2250 FRINT @ 274, "creature";K(Y) 


226® IF RND(1@)=3 THEN 2280 
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MCY) =M (CY) -1f 

IF RND(1®)=7 THEN 2400 
K(YI=K CY) -1 

IF M(Y)<1 THEN 2560 

IF K(Y)<1 THEN 2520 

FLAY "L2400i1CFBOZEADZDGO4E" 
PRINT © 290,"batTLE STARTS" 
PLAY "L2S5S502BAGFEDC" 

PRINT @ 290,"BATtle STARTS" 
PLAY "O2BAGFEDC" 

FRINT @ 290,"BATTLE staRTS" 
FLAY"OLBAGFEDC" 

PRINT @ 290,"BATTLE STArts" 
PLAY"O1DCDC" 

GOTO 2240 

FOR T=1 TO 1000:NEXT T 

CLS 2:FRINT @ 100,"YOU WIN THIS ROU 


FLAY"L402FGAEE" 

V=V4+isIF V=2 THEN 21990 ELSE NEXT Y 
FOR T=1 TO 10@0:NEXT T 

CLS 4:FRINT @ 100,"THE CREATURE WIN 


FLAY"L401FGAEE" 
W=W+i:IF W=2 THEN 29190 
NEXT Y 

END 

REM*k* (+INITIALISE) 4% 
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26Z0 DIM M(Z):DIM Z(21,5):DIM Q(5.5) 
2640 M(1) =RND(20)+20 

2650 M(2)=RND(7@)+10 

2660 M(=)=RND(4) 

2470 FOR A=1 TO 2@ 

268@ FOR B=1 TO 5 

269 READ Z(A.B) 

2700 NEXT B.A 

2710 DATA 10,13,11,8.0,19.7.3,0.0 
2720 DATA @,10.44250,9,19,5,2,8 
27Z@ DATA 8.9.5,4.9.8,9,9,5,9 

274 DATA 2,8,10.0, 0,7,12,1,9,0 
2750 DATA 5.11.,0,19.8,0,9,0,9,0 
2760 DATA 9.9,17.1,0,8,0,13,9,0 
2770 DATA 1,9,14,12.0,9%,2,15,13,9 
278®@ DATA 11,18,16.14,0.,17,0,0,15,2 
279 DATA 9.16,0,11,9,0,20,6,0,0 
2B@O DATA 4,9.9,10,0,18,9,0,8,0 
2850 B=1:P=0 

2860 FOR A=1 TO 5 

2870 RO=RND (18) +1 

2886 IF Z(RO.S)=@ THEN Z(RO,5)=A ELSE GO 
TO 2870 

2890 NEXT A 

2900 RETURN 

2910 REM**X*END OF GAMEX*x 

2920 FOR T=1 TO 1S5:FRINT” " 

2920 NEXT T 
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2946 PRINT" YOU HAVE BEEN BEATEN" 

2950 GOSUB 2150 

2960 PRINT" YOUR STRENGTH COULD" 

297@ GOSUB 3150 

2988 PRINT" NOT HOLD OUT AS YOU " 
2990 GOSUB Z215e 

3006 PRINT" TRIED IN VAIN TO FIND" 
3010 GOSUB 2150 

3020 PRINT" THE SECRETS THAT THE" 

30230 GOSUBR 2150 

3040 PRINT” DARK FOREST HOLDS..." 

3050 FOR C=1 TO 10 

3060 GOSUB 7150 

3070 NEXT C 

3080 GOSUB 7150 


3090 PRINT" BUT DO NOT GIVE UP,MORTAL" 
3100 GOSUB 7150 


3116 PRINT" FOR YOU MAY STILL SUCCEED.” 
3126 GOSUB 7150 

31236 PRINT" TO TRY AGAIN PRESS A KEY" 
3140 IF INKEY$="" THEN GOTO 2140 ELSE RU 


3156 FOR T=1 TO S0@:NEXT T 

3160 PLAY"VZ1L25501GEC" 

3170 PRINT" " 

3180 RETURN 

2190 REM*X*YOU WINKKX 

3200 CLS: PLAY"O4L12CL1@DL12CL4D" 
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3216 PRINT "XXXKEKEKAKWELL DONE XEKKKEEKE 
ak" 


2220 PRINTSFRINT" YOU HAVE CONQUERED 
THE" 

2220 PRINT" dark forest" 

22460 FRINT:FRINT" YOU OUTWITTED YOUR E 


NEMIES, EXFLORED THE FOREST AND FOUND 

THE CREATURE. " 

3250 PRINT:FRINT" YOU HAVE RID THE COUN 

TRY OF A GREAT THREAT AND YOU SHALL BE 

REWARDED. " 

3260 PRINT: INFUT"WHAT IS YOUR NAME";NAME 

by 

3270 CLS:FOR T=1 TO 1S5:PRINT:NEXT:FRINT" 
ARISE SIR ":NAMES:PRINT" OF D 

RAGONIA" 

2280 FOR T=1 TO 15:FRINT:FPLAY"O4L2@CEFFG 

"“SNEXT T 

2296 FOR T=1 TO 2000:NEXT T 

ZZ0@ FMODE Z.1:FCLS:SCREEN 1. 

2210 FOR T=4@ TO 155:LINE(T, T-2@) —(250-T 

.220-T) ,PSET.B 

ZZ20 LINE (T. T-Z0) —(250-T, 220-T) , PRESET, B 

3220 COLOR RND(4),RND(4):SOUND RND(1@0) + 

12@,1:NEXT T 

ZZ4@ PCLS:SOUND RND(20@)+20,1:GOTO 221@ 
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CHAPTER 3 


A FULL SCALE TEXT 
ADVENTURE - THE 
NIELSON PAPERS 


Moving on from our first program, we have here an adventure 
set around a less common scenario - a block of offices. The 
adventure requires you to collect the secret Nielson Papers, 
Nielson being the scientist who first managed to perfect the 
Uranium substitute, Syntheron 2. The company he works for 
are now making vast sums of money from this invention, and 
rival companies just cannot wait to get their hands on the 
formular and manufacturing techniques described in these 
papers. You are employed by the fuel giant, Trithon Ltd, and 
must steal the papers and escape safely from the back of the 
office block. 


To complete your task, you will need to find various pieces of 
equipment, keep yourself out of the many traps that exist and 
solve the complex problems placed around the adventure. Of 
course, the building is patrolled by security guards who are 
trained to shoot on sight. You are fortunate in that you are 
wearing a bullet-proof vest which will take quite a few shots 
before finally allowing the fatal round through. You are given 
a gun, told of your mission and transported to the front of the 
office complex. From there on, the success of your mission is 
up to you. The Nielson Papers are your goal... 


Stirring stuff. The adventure is rather different in design and 
actual game play to ‘The Dark Forest’. You havea full range of 
commands that you must discover and use. |! will not give 
these away but suffice to say, they allow you to acquire 
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objects, battle with the guards, and move around the 
adventure scenario among other things. 


The descriptions of the locations are much shorter than the 
previous adventure. Much of the adventure is taken up with 
handling commands, approximately 30 of them in all. The 
computer, in this game, allows quite a wide syntax to any 
commands. The best way is to find out which commands it will 
accept and which it refuses to understand. In many situations, 
the computer gives more help than the simple ‘| CAN’T DO 
THAT’ message which can be so frustrating in adventures. If 
you find you are getting nowhere in this adventure, then have 
a look at chapter eight of this book. 


Certain areas of this program have been put under scrutiny. 
The whole program is listed at the end of the chapter. It is a 
good idea to type the whole program in first and then return to 


the chapter for a discussion of the various routines within the 
listing. 


The first area of the program to discuss is the ‘initialisation’ 
routine. 


16 REMA£4KTHE NIELSON PAPERS*&4* 


20 REM&£KKKA TEXT ADVENTUREXK#&KKE 
30 GOSUB 1730:GOSUB 1440 


The program first displays the title page. As this program is all 


text, the title page uses some simple string slicing to give an 
effective display. 


1730 CLS:NNS="4THE NIELSON PAPERS" 

1740 PRINT @ 130,"A FULL SCALE TEXT ADVE 
NTURE": PRINT @ 264,"C.1983." 

1756 FOR F=1 TO 3 

176@ FOR T=1 TO 2@0:PRINT © 228,MIDS(NNS, 
T,21-T)sPRINT @ 249-T, LEFTS (NNS, T) 

1776 PLAY"P1@"=:NEXTs NEXT 


58 


1786 FRINT @© 228," "3:FOR T=1 TO 1@00:NE 
XT Ts RETURN 


Line 1766 performs the leftwards scroll feature. This line is in 
a loop which splits NN$ (the string holding the title) into two 
pieces. The piece from the loop pointing to the right is printed 
on the left part of the screen and the other part of the screen, 
ie. that which is to the left, is printed to the right of the other 
portion. The loop gradually increases the size of the left part of 
the string and decreases the right side of the string. When 
these are continually displayed on-screen in the same 
position (using PRINT @) it gives the effect of the title 
scrolling to the left, off the edge of the screen, and magically 
re-appearing on the other side of the screen. 


Once the title page is displayed, the program then initialises, 
with the title page still displayed. All the arrays are 
dimensioned in line 1450. Most of the ‘initialisation’ routine is 
concerned with filling the arrays with the data necessary for 
the game. O$ is filled with the names of the 18 objects which 
can be found in the game. L$ is filled with the description of 
the 30 locations in the game, while the array, L, is filled with 
the starting positions of the 18 objects. Array A is given the 
monetary values of the 18 objects, and array P contains the 
room logic. 


The other function performed in the ‘initialisation’ routine is 
the defining of the four large strings used in the game. C$ 
contains all the names of the commands available in the game, 
but only the first three letters of each. O$ contains the first 
three letters of each object, while D$ holds the direction string 
used when there is a locked door or blocked entrance in the 
adventure. P$ is what | have termed as the ‘response’ string. 
When you enter a command which the computer does not 
understand in any way, it will randomly choose one of the four 
responses to display on-screen. This removes the monotony 
of having the computer constantly repeat the same phrase 
every time you have trouble. 


Now that we have looked at the ‘initialisation’ section in total, | 
will take just a couple of areas of the rest of the program and 
detail them more exactly. 


59 


The ‘initialisation’ routine... 
1440 REMXXXINITIALISATIONKX* 
1450 DIM 0%$(18),L8(3@),P (70,4) ,L(18),AC1 
@) 
1460 FOR T=1 TO 18:REAND OS(T):NEXT 
1470 FOR T=1 TQ 3O:READ 1.6(7T) 2 NEXT 
148© FOR T=1 TO 18:READ L(T):sNEXT 
149 DATA GUN, TORCH, COFFEE—MACHINE, SCRIE 
BLED-MEMO, POCKET-COMPUTER, GLOVES, CUP,STO 
OL.WIRECUTTERS 
15@@ DATA MONEY,COIN-MACHINE, SILENCER,LA 
DDER, KEY, FAFER-CLIPS, ROPE, SECRET—-FAFERS, 
FAPERS 
1516 DATA THE MAIN ENTRANCE, THE RECEPTIO 
N AREA, THE DOCUMENT ROOM, THE STAFF CANTE 
EN, THE DELIVERY ROOM 
1520 DATA "A CORNER OF THE YARD NEXT TQ 
AN ELECTROCUTED FENCE"."THE ALLEYWAY BEH 
IND THE COMPLEX, A CAR IS READY TO TAKE 
YOU AWAY” 
152@ DATA THE COMPUTER ROOM, THE MAINTAIN 
ANCE AREA,A DARK CORRIDOR, THE RECORDS DE 
PT,AN UNTIDY OFFICE 
1546 DATA THE TYPING FOOIL.THE RECREATION 
ROOM,A NARROW CORRIDOR,A PLUSH CONFEREN 
CE ROOM. AN UNLIGHTED OFFICE 
155@ DATA THE STRONGROOM NEXT TO THE VA 
NLT, THE STEEL VAULT, THE ACCOUNTS DEPT.TH 
E EXECUTIVE WASHROOMS 
1566 DATA “A COLD, BARE ROOM".A DARK COR 
RIDOR."A CLEAN, NEW STOREROOM",A LARGE C 
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UPBOARD.A BRIGHT HALILWAY 

1570 DATA THE TELEX ROOM.A LIFT.THE DIRE 
CTCRS BOARDROOM.A SPACIOUS OFFICE 

1580 DATA @,2. 4.27, 8.23.25, 13,919, 20,30 
35,1@,123,11,34,11 

1590 D&="NORTHSOQUTHEAST WEST " 

160@ Ct="GO MOVTAKGETSTEDROREACL I CUTCHAD 
PEUNLF I RSHOWA I DRI SEAL OOWEACOMCALDECHELCL 
UQUIFUTHITFIGATTKIL" 


161@ 0%="GUNTORCOFMEMCOMGI_OCUPSTOWIRMONC 
OISILLADKEYCL IROPSECPAR" 

1620 F$="PARDON? WHAT? RUBBISH!REPHRAS 
E" 

1620 L=1:L. (1) =@:K=@: ST=10000: KY=0: GS=0 
164@ G1=RND(28)+2:IF Gi=28 OR G=7 THEN 1 
640 

145@ DC=RND (6) +4 

166@ FOR X=1 TO 3@:FOR Y=1 TO 4:READ F(X 
.¥) NEXT: NEXT 

1670 DATA 2,9,0,0,-145 154,00, Oy 2,0, 0,10, 
F425 e155 by Oy Oy Oy 54 Oy, O, OG, 15, 24,0, 21, 
20,8,13,9 

168@ DATA 4,9.941,9.27.14,12,17,9, 11,14, 
16,0, ©, 9, 26,0, 18, 11,5,8,9,21,-1, 23,12, 24 
»22,12,15,0 

1690 DATA 19,20,18, 14,0,-1,4,0,18.7,9., 
2,17,8,-1.9.17,—-1, 28, 16, 23,0, 17.8, 0, 26, 1 
2.9,0,0,27 

17@® DATA 6,14, 0,24, 11,-1, 25, 12,29, 16,9, 
@, 28, 0,0, 20,0,0,29,8 

171@ DATA 80, 10,0, 1, 200,8,%, 10, 22,9,0,10 
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i 
j 


«40,10, 1,27, 1000000, 2 
172@ RETURN 


The following lines of the program comprise the routine that 
tells the adventurer which objects can be seen and those 
already in the player’s possession. 


11@ S=@:PRINT:PRINT"YOU HAVE: "5 

12@ FOR D=1 TO 18:IF D=46 OR D=9 OR D=1@ 
OR D>14 THEN AS="_" ELSE AS=" A " 

13@ IF S>® AND L(D)=@ THEN PRINT TAB(9); 


140 IF L(D)=@ THEN PRINT AS;0%(D):S=S+1 
15@ NEXT D 


160 PRINT 

17@ Z=@:PRINT"YOU CAN SEE:"; 

18@ FOR D=1 TO 18:I1F D=6 OR D=9 OR D=1e@ 
OR D>14 THEN AS="_" ELSE AS=" A " 

199 IF L(D)=L AND Z>@ THEN PRINT TAB(11) 


. 
5 


200 IF L(D)=L THEN PRINT AS$;0$(D):Z=Z+1 
21@ NEXT D 


220 IF Z=6 THEN PRINT" NOTHING MUCH" 


If you win... 


1226 PRINT: FRINT"YOU WERE 10@% SUCCESSFU 
L IN YOURMISSION AND THE ORGANISATION HA 
SKINDLY LET YOU KEEP THE OBJECTS THAT YO 
UW COLLECTED..." 

1220 FOR T=1 TO 19:READ A(T) =NEXT T 

1240 FOR T=1 TO 19:IF L(T)=@ THEN PRINT 


OS(T)5" WORTH":SPRINT A(T); "FOUNDS. " 
125@ NEXT T 
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12660 FPRINT"except the secret papers" 
1276 FOR T=1 TO S@@o:NEXT T 

1280 FOR T=1 TQ 8:PRINT:PLAY"N3L9C": NEXT 
TSsPRINT TAB(12)3"WELL DONE":FOR T=1 TO 
8:PLAY"O4ALBC":PRINT: NEXT T:END 


If you manage to escape but forget something... 
1296 PRINT:PRINT" YOU? RE SAFELY AWAY BUT 

YOU DID NOT STEAL THE SECRET PAPERS. TH 

EORGANISATION ARE NOT PLEASED... YOU HAV 

E BEEN SENT BACK TO TRY AGAIN. ":FOR T=1 
TO 46@0:NEXT T:RUN 


If you fail miserably... 

12@60 FOR T=1 TO 40@0:NEXT T:FOR T=1 TO 1 

6: PRINT: NEXT 

12160 FRINT" Qo0000 g000c0 o00n00 0 
"sFPLAY"!16026" 


1320 PRINT’ Q a) 0 oO": 
PLAY"D" 

1236 PRINT" 000 ooo00 a) Oo": 

FLAY"O1A" 

1746 PRINT" © o 60 a) oO": | 
PLAY"E" | 
1256 FRINT' QO o 869 coooo = 6cOO | 
QO"=PLAY"C" 


1260 FRINT: PRINT: GOTO 1214 


Line 1580 gives all the starting values of the objects. It can be 
seen that object ‘1’, the gun, is given the value zero. This 
means that the player is carrying the gun. When the program 
later accepts the player's command to take an object, it will 
put the location starting position of the object (held in the L 
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array) equal to zero. If the item is dropped, the computer will 
give the object the value of the location the object was 
dropped in. There are then two routines that display whatisin 
the same location and also what you are carrying. These 
routines are situated at lines 110 to 220. Itnowseems to be the 
best time to look closely at those routines which are displayed 
following the ‘initialisation’ section. 


What basically happens is that the computer checks through 
the ‘object location’ array and any object with the value zerois 
displayed in the player's inventory. Any object with the value 
equal to the location number that the player is at (heldin the 
variable L) is printed as being seen by the player. Lines 120 
and 18@ are there simply for grammatical reasons, ie. to put an 
‘A’ in front of certain objects. There is also the counter, S, that 
checks how many objects you are carrying. There is a 
maximum number of objects which can be carried which 
means the player has to make decisions in the later stages of 
the game as to what to carry and what to drop. 


A vital part of this adventure program are the routines which 
accept and process the player's command. 


Firstly, the computer must accept the player’s command and 
then go to a routine which will handle the response. The lines 


below do this. 
240 PRINT: INPUT"WHAT NOW": NS 
25@ GOSUB 1270 


The routine at line 1370 is very useful and basically dissects 
the parts of the command phrase or sentence that are 
required. This routine is shown below. 


1270 REM**XXCOMMAND HANDLINGKKX* 

1Z@6 T=1:IF LEN(NS)<2 THEN T=1@0: RETURN 
1296 BS=MIDS(CS,T,2)21F RS=EFTS(NS, 3) T 
HEN T=(T+2)/2:GOTO 1420 

1406 IF T>97 THEN 1426 
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141@ T=T+Z2:G60TO 1296 

1426 FOR CT=LEN(NS) TO 1 STEP-1:1IF MIDS$( 
NS,CT,1)=" " THEN CTS=MIDS(N¢,CT+1,2) EL 
SE NEXT CT 

1420 RETURN 


It would be useful to look further into the above routine, so 
here follows a line-by-line explanation. First, it checks to see 
that the command entered is less than three letters long; if this 
is the case it goes back to the main loop as the command 
entered was an invalid one. Lines 1390, 1400 and 1410 forma 
loop without using the FOR...NEXT commands. In this loop, 
the first three letters of the player’s command are checked 
with the ‘command' string. If there is a command in the ‘com- 
mand’ string that is equal to the player’s command then the 
position that the command comes in the ‘command’ string is 
recorded and that is used as the basis for the information 
when the program goes back to the main loop. Ifno command 
is found then the program indicates that it is an invalid com- 
mand (by assigning a value of greater than 97 to the variable 
T) and then returns to the main loop. If the commandiie a valid 
one then there is further string handling to be done. The last 
word of the commandis found and the first three letters of that 
word are recorded in CT$. This is primarily used for when 
manipulation of objects within the adventure is required. 


The program now returns to the main loop where if it is an 
invalid command, the computer prints up one of the messages 
from the response string, P$. The program then ON... 
GOSUBs to the line starting the subroutine to operate that 
particular command. The variable T is used here. 


270 IF T>96 OR T<1 THEN PRINT:PRINT TAB( 
12) ;MIDS (PS, ((RND(4)~1) #8) +1,8):GOTO 290 
280 ON T GOSUB 240,340, 420, 426, 420, 510,5 
7®, 530, 650, 680, 700, 700, 830, 830, 920, 938,9 
40, 960, 1920, 1040, 1040, 1040, 1040, 1072, 107 
@,1100,112@, 1130,1130 
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We will not discuss all the commands available in this 
adventure, but | have chosen a couple which are fairly repre- 
sentative of what is in store for the budding adventurer. We 
will first have a look at the movement commands, MOVE and 
GO. 


These commands are followed by the direction in which the 
player wishes to go, ie. north, south, east or west. The two 
words must be separated by a space. How this movement 
works is based on the logic used for linking locations in this 
adventure. Each location, if you have a look at the location 
data in the ‘initialisation’ section, has four pieces of data. Each 
refers to the new location the player would end up in if he or 
she went in a particular direction. The first number is for 
northern movement, the second for southern movement, and 
so on (in much the same way as ‘The Dark Forest’ system). 
When you decide to move in a certain direction, the computer 
gives the variable, K, a value, ie. ‘1’ if it is north that you 
decided to move to, andso on. The program, if you are moving 
in an unblocked direction, makes the new location variable, L, 
equal to the figure in the room array which applies to your 
present position and the direction you wish to move in. For 
example, if you plan to move north and you are at location ‘1’, 
then the new location value will be P(1, 1); that is the first 
location and movement up (K = 1). If you look up the data in 
line 1670, the first four numbers refer to location ‘1’. Moving 
north is handled by the first number which is a ‘2’. Therefore, 
the new location that you are moved to is location number ‘2’. 


If after this process is gone through the new location is less 
than one, then the player cannot go that way and the program 
displays a suitable message and L is given its previous value 


back. 
33@ REM**X£XXCOMMANDSEEXKE 
340 REM 
350 IF LEFTS(CTS$,12="N" THEN K=1 
360 IF LEFTS(CT#,1)2="S" THEN K=2 
37@ IF LEFTS(CT$,1)="E" THEN K=3 
TBO IF LEFTS(CT#,12="W" THEN K=4 
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39@ N=L:L=P¢(L,K) 

40@ IF L<1i THEN PRINT"YOU CAN’T GO THAT 
WAY! ":L=N 

41@ RETURN 


Let’s have a look at one of the ‘red herring’ commands, ‘HELP’. 
This command, if entered, is responded to by a curt phrase, 
‘HELP YOURSELF, NO CLUES FROM ME’. The program then 
returns. This type of command soon arouses a humorous 
reply from the computer, takes up little memory and adds a 
little light-heartedness to the whole affair. 


1060 PRINT"HELP YOURSELF, NO CLUES FROM 
ME": RETURN 


The READ commandis an interesting command to look at and 
typifies many of the commands in this adventure. Many com- 
mands fall roughly into the following format: is the object 
required to do this as it is being carried by the player; is the 
player in the right location to do this; does the adventurer 
request the right object to use the command in conjunction 
with; and finally, are all the conditions, such as other essential 
objects, correct for the operation to take place. If there is 
anything wrong, some form of action (usually a message 
displayed) must be undertaken and the game goes back to the 
main loop. If everything is okay, then the program performs 
the operation, acknowledges that it has performed this 
operation and then returns to the main loop. 


Let's transform this format into a practical example, READ. 
Firstly, if the torch is not carried by the player (ie. L (2), the part 
of the array denoting the torch, is not equal to zero) then the 
computer prints a ‘too dark’ message and returns. If none 
of the three readable items (the memo, the papers or the 
secret papers) are with the player in that location then the 
computer prints a ‘nothing to read’ message. If the memo is 
with the player (ie. L (4), the place in the object array for the 
memo, is equal to the adventurer’s present location) then a 
coded message is printed and you are told that it is written in 
code and needs the computer to decipher it - yet another 
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object for the adventurer to hunt for. If the player tries to read 
the papers, then he or she is told that they are just company 
accounts and nothing but a red herring. The player is then told 
off. After these actions have been followed, the computer 
waits for you to press a key to continue the game. The ‘READ’ 
routine is shown below. 


57@ IF L(2)<>@ THEN PRINT"IT*°S TOO DARK 
TO READ! ":RETURN 


580 IF L(4)<>L AND L(17)<>L AND L(18)<>oL 
THEN PRINT" THERE IS NOTHING TO READ!" 
59@ IF L(4)=L THEN PRINT"READS: telvsrite 
ahomhgoeaenhwsro":PRINT:PRINT"“IT?S WRITT 


EN IN CODE, YOU NEED THE COMFUTER TO DE 
CODE IT." 


60@ IF L(18)=L THEN PRINT"DON’T WASTE YO 


UR TIME, THEY ARE THE COMPANY’S ACCOUNTS 
s EXTREMELYBORING." 


61@ IF L(17)=L THEN PRINT"your job is to 
steal them not read them." 


620 PRINT: PRINT"PRESS ENTER TO CONTINUE" 
: INPUT L$:RETURN 


We will have a look at one part of another command, 
UNLOCK. This command, obviously enough, unlocks a 
locked door, providing you have the key, of course. The 
routine to use this command starts at line 700. The command 
checks that there is a locked door in the location, that you 
have the key and that it has not crumbled into dust due to over- 
use. It then checks that the last word in the sentence was 
‘door’ so that the command phrases, ‘UNLOCK THE SOUTH- 
WARDS FACING DOOR’, ‘UNLOCK LOCKED OFFICE 
DOOR ' or simply ‘UNLOCK DOOR’ would all be accepted and 
yield the same response from the computer. This is true of all 
the commands, and some have an even wider choice of 
phrases that can be entered. 
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If all the previous conditions are met and the adventurer is in 
location 16 or location 28, then the door between these 
locations is opened and the program accordingly changes 
several numbers applying to the room logic. The southern 
direction in location number ‘28’ is made equal to ‘16’ and the 
northern direction in location ‘16’ is made equal to ‘28’. 


It can be seen that by manipulating the arrays, variables and 
strings set up in the early part of the game, itis a simple matter 
to move objects about, open and block passages, move 
around the locations, perform a wide number of actions 
involving certain conditions that must be met and subse- 
quently, infuriate and amuse the player with simple one-line 
responses. 


This sort of adventure is more versatile and generally more 
exciting to construct and play than most other kinds of 
adventure. The possibilities for commands are almost endless 
providing they are covered in the ‘command string and are set 
up logically with a subroutine which covers every possible 
condition. 


What | have discussed with you about commands in this 
adventure could be said to be just the tip of the iceberg. 
Though the commands do act in a similar way to the ones 
shown above, what they actually do and what is needed to 
make them work has not been given away. When you start to 
play the game, you will see just how much can be crammed 
into well under 16K of memory. Because | have kept the game 
all text, converting it to other computers will not be that 
difficult. There is much memory space left that can be used to 
expand this game to almost double its present size. You can 
increase the memory of your computer by typing in POKE 
25,6 and then typing NEW. The amount of memory you now 
have available is approximately 31015 bytes (614K more than 
previously available). What has, in fact, happened is that you 
have cleared the high resolution graphics pages. Using this 
technique stops you from using the graphics on the Dragon 
32, but you do receive a terrific memory boost as a result. The 
decision is, of course, all up to you. 
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Before you get this adventure up and running on your 
computer, there are several points which deserve explanation. 
Firstly, when playing the game, after the computer responds 
to your command, there is a long pause. If you find the pause 
too long, then press a key and the program will continue. If, 
alternatively, you find the pause too short, then alter line 310 
shown below. 


31@ FOR TT=1 TO 10@0:IF INKEYS="" THEN N 
EXT ELSE TT=1000 


Secondly, you may have noticed that none of the adventures 
in this book feature a ‘game save’ or ‘resurrection’ feature. 
First, | will explain what both of these features are. A ‘game 
save’ feature simply lets you save your current status onto a 
cassette so that when you return to play the game some time 
later, you do not have to repeat the early stages of the game. A 
‘resurrection’ feature allows a player killed during the 
adventure to continue playing the adventure albeit with a 
points or treasure loss. | have not included either feature 
because | do not feel that the adventures in the book need 
them. They are finely balanced between the computer and the 
player, and these extra features would make the game a lot 
easier to solve. ‘The Dark Forest’, with its random elements, 
would particularly suffer with the adventurer only going 
through the early stages once. 


These two features are usually found on large commercial 
adventures butif you wish, you can add them to your program. 
The ‘game save’ feature can be added using the cassette file 
statements, and recording onto tape all the variables and 
arrays that have changed since the beginning of the game. A 
simple routine could then be developed to allow the data to be 
loaded back into the major program. 


The ‘resurrection’ feature is far simpler. All you need to dois to 
add a small routine in front of the ‘lose’ routine at the end of the 
game. This short extra routine would take away a certain 
amount of treasure, points, etc, andlet you carry on the game, 


perhaps moving you back to a location nearer the beginning 
of the adventure. 
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Here follows a complete listing of the program, The Nielson 
Papers. | hope you enjoy it. When you've typed it all in, why not 
check out the contents of this chapter if there are any routines 
you do not fully understand. 


10 REM**X**XTHE NIELSON PAPERS*x%#x 

20 REMAK*£EXA TEXT ADVENTUREXSKX 

2® GOSUB 1720:GOSUB 1440 

40 REM*XXMAIN LOOP*x* 

56 ST=ST-1:IF ST=6 THEN 1300 

60 CLS:PRINTsFRINT"YOQU ARE IN "sL$(L) 

70 IF L=7 AND L(17)=@ THEN 1220 

80 IF L=7 AND L(17)<>6 THEN 1290 

90 IF L=29 THEN PRINT"YOU ARE ON THE TOP 
FLOOR" 

106 FOR M=1 TO 4:IF P(L.M)=-1 THEN PRINT 
"LOCKED DOOR TO THE ";MIDS(D$, (5%*M)-4,5) 
119 S=O:PRINT:PRINT"YOU HAVE: "; 

12@ FOR D=1 TO 18:IF D=6 GR D=9 OR D=1e 
OR D>14 THEN AS=" " ELSE AS=" A " 

13@ IF S>@ AND L(D)=@ THEN PRINT TAB(9); 
146 IF L(D)=@ THEN PRINT A%$;0%(D):S=S+1 
15@ NEXT D 

16@ PRINT 

170 Z=O@:PRINT“"YOU CAN SEE:"; 

18@ FOR D=1 TO 18: IF D=4 OR D=9 OR D=10 
OR D>14 THEN AS=" " ELSE AS=" A " 

1909 IF L(D)=L AND Z>@ THEN PRINT TAB(11) | 


. 
3 


20@ IF L(D?=L THEN PRINT AS:08(D):Z=Z+1 
21@ NEXT D 

229 IF Z=@ THEN PRINT" NOTHING MUCH" 

22@ IF Gi=L THEN PRINT:PRINTSPRINT" gas 
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p! a security guard":DC=DC-1:1F DC=6 THE 

N 12@0 

240 PRINT: INFUT"WHAT NOW": NS 

258 GOSUB 1270 

26@ IF Gi=L AND T<>12= AND T<>14 AND T*27 
THEN 200 

270 IF T>96 QR T<i THEN PRINT: PRINT TAB(C 
12) ;MIDS (FS, ((RND(4)—-12%*8)4+1,8):GOTO 2990 
28@ ON T GOSUB 240,246, 420,420,420,510,5 
74,650, 650, 680, 700, 700, 820, 830, 929, 9290.49 
60, 960, 1920, 1040, 1040,1040, 1940,1070,197 
,11@6,117@,1170,1120 

290 FOR TT=1 TO S@@:NEXT:IF T<S THEN 220 


300 IF Gi=L THEN FRINT" THE GUARD FIGHTS 
BACK..." 


21@ FOR TT=1 TO 10@0: IF INKEYS=""" THEN N 
EXT ELSE TT=1000 

32@ GOTO 40 

SFQ@ REMKXKAKCOMMANDSEKXKX 

34Q REM 

35@ IF LEFTS(CTS,1)2="N" THEN K=t 

360 IF LEFTS(CTS,21)="S" THEN K= 
37@ IF LEFTS(CTS,1)2="E" THEN K= 
38@ IF LEFTS(CTS,12="W" THEN K=4 

39@ N=L:L=P(L.K) 

40@ IF L<i THEN PRINT"YOQU CAN’T GO THAT 
WAY !":L=N 

41 RETURN 

42@ DV=@:FOR CT=1 TO 54 STEP ZeIF MIDS(O 
$,CT,2)=LEFTS(CTS,2) THEN DYV=CT 

420 NEXT: CT=(DV+2)/3:1IF DV=6 THEN T=160: 
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RETURN 

44@ IF S>4 THEN PRINT"YOU MUST DROP SOME 

THING FIRST": RETURN 

4S@ IF (CT=8 OR CT=12) AND S?2 THEN PRIN 

T"TO CARRY THE “sOS(CT);", YOU CAN ON 

LY CARRY 2 OTHER ITEMS. ": RETURN 

46@ IF L(RT)<>L THEN PRINT"IT IS NOT HER 

E": RETURN 

A4A7@ IF CT=2 OR CT=11 THEN PRINT"DON’T BE 
SILLY,IT’S TOO HEAVY. ": RETURN 

48@ IF L617)=2 THEN ST=25:PLAY"LiSOZCO1C 

O2COLCOFCOLCOZCO1IC":s PRINT" THE ALARMS HAV 

£ SOUNDED, YOU DO NOT HAVE MUCH TIME. "sL 
(17) =@: RETURN 

490 IF L(CT)=L THEN L(CT)=@:PRINT"YOU AR 
FE CARRYING THE ";0%(CT) : RETURN 

S@@ IF L=z AND CT=17 THEN PRINT"THEY ARE 
OUT OF REACH": RETURN 

S1@ REMKXKXKDROPSEKKE 

52@ DV=@:FOR CT=1 TO 54 STEP 2:IF LEFTS( 
CTS, 2) =MID&(CH,CT.2) THEN DV=CLT 

SzQ@Q NEXT: CT=(DV+2)/2:IF DV=@ THEN T=1@0: 
RETURN 


S40 IF S=0 THEN PRINT"YOU HAVE NOTHING T 
Q DROF": RETURN 

55@ IF L¢CT)<>@ THEN PRINT"YQU DON’T HAV 
E IT TO DROP.": RETURN 

56@ L(CT)=LzsPRINT"YOU HAVE DROPPED THE " 
30% (CT) : RETURN 

57@ IF | (2)<>0 THEN PRINT"IT?S TCO DARK 
TO READ! "=: RETURN 
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580 IF L(4)<>L AND L(17)<>L AND L(18)<oL 
THEN PRINT"THERE IS NOTHING TO READ!" 
59@ IF L(4)=L THEN PRINT“READS:stelvsrite 
ahomhgoeaenhwsro":PRINT:PRINT"IT*?S WRITT 
EN IN CODE, YOU NEED THE COMPUTER TO DE 

CODE IT." 

60@ IF L(18)=L THEN PRINT"DON’T WASTE YO 

UR TIME, THEY ARE THE COMPANY’S ACCOUNTS 
» EXTREMELYBORING. " 

61@ IF L(17)=L THEN PRINT"your job is to 
steal them not read them." 

620 PRINT:PRINT“PRESS ENTER TO CONTINUE" 
: INPUT L%:RETURN 

630 IF (L(8)=0 OR L(1=)=0) AND (CTS="LAD 
"QR CT&="STO") AND L==2 THEN PRINT"YOU C 
AN REACH THE SECRET—-PAPERS NOW. "=L(17)=2 
: RETURN 

64@ IF L=6 THEN PRINT"YOU CANNOT CLIMB O 
VER THE FENCE":RETURN 

65@ IF L=6 AND L(6)=25 AND L(9)=@ AND CT 
$="FEN" THEN FRINT" THE FENCE HAS BEEN CU 
T. YOU CAN GET QUT BY GOING NORTH. ":P(6, 
1)=7: RETURN 

66@ IF L=6 AND L(6)<>25 AND L(9)=6 AND C 
TS="FEN" THEN PRINT"YOU CUT THE FENCE RU 


T FORGOT IT WAS electrocuted!!!":SOUND 2 
45, 20:GOTO 1300 
670 RETURN 


480 IF L=20 AND CT$="MONEY" AND L(19)=0 
THEN PRINT"THE MACHINE ACCEPTS THE NOTES 
AND CHANGES THEM INTO A SINGLE COIN! 
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"20% (19) ="COIN": MIDS (0%, 28,3) ="COI":RETU 

RN 

69@ PRINT"THIS MACHINE CHANGES THE NOTES 
THAT YOU ALREADY OWN INTO COINS it doe 

s nothing else":RETURN 

70@ DDV=0:FOR M=1 TO 4s IF P(L.,M)=—-1 THEN 

DDV=1 

71@ NEXT MsIF DDV=1 AND €(14)=@ THEN KY= 

KY+12IF KY=3 THEN KY=@2L(14)=37:PRINT"TH 

E KEY WAS OLD AND YOU USED IT TOO MUCH, 

IT HAS CRUMBLED INTO MRDUST"“:RETURN 

72@ IF DNV<>1 OR L(14)<>e@ OR CT$<>"DO0" 

THEN 790 

7=Q PRINT"WITH A CREAK, THE DOOR OPENS... 

"sPLAY"YV231I-120CDC" 

74@ IF L=19 THEN P(19,2)=19:P(18,1)2=19 

750 IF L=2 OR L=27 THEN P(2,1)=27:2:P (27,2 


76@ IF L=16 OR L=28 THEN F(28,2)=16:P(16 
.1)=28 

77@ IF L=21 OR 22 THEN P(22,3)=21:P(21,4 
)=22 

78@ RETURN 

79@ IF L=19 THEN PRINT"YOQU ARE TRAPPED I 
NSIDE THE VAULT":IF L(14)<>0 THEN 13@0 
80@ IF DDV<>1 THEN PRINT"THERE IS NO DOO 
R TO UNLOCK FOOL! ":RETURN 

B1@ IF L(14)<>0 THEN PRINT"YOU DON’T HAV 
E THE KEY":RETURN 

R2@ T=100: RETURN 

Z@ IF GS=1 AND Gi=L AND L(1)=@ AND LEFT 
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$(CTS,2)="GU" THEN 896 

840 IF Gi<>L THEN PRINT"“THERE IS NO GUAR 

D HERE!" 

85@ IF L(1)2<>@ THEN PRINT"YOU HAVE NOTHI 

NG TQ FIRE WITH" 

B6@ IF LEFTS(CTS,2)<>"GU" THEN PRINT"SHO 

QT WHAT?" 

87@ IF L(1)2=@ AND Gi=L AND LEFTS(CTS,2)= 
"GU" AND GS<>1 THEN PRINT"YOU KILLED HIM 
BUT THE GUNSHOTS HAVE ACTIVATED THE SON 
IC ALARM. YOU HAVE LITTLE TIME TO ESCAPE 
";ST=15:s PLAY" O2BCBCBCBCBC": G1=RND (28) +2: 
IF Gi=L OR Gi1=28 THEN Gi=Gi-1 

BB@ RETURN 

89@ IF RND(Z)<2 THEN PRINT"YOU MISSED HI 
M": RETURN 

90@ PRINT"YOU KILLED HIM":G1i=RND(28)+2:1 
F G1i=L OR Gi=28 OR Gi=7 THEN 900 

91@ RETURN 

92@ PRINT"TIME PASSES...":FOR TT=1 TO 20 
@6: NEXT: RETURN 

930 IF LEFTS(CT$,2)<>"COF" OR L<>4 THEN 
PRINT"DRINK WHAT?": RETURN 

740 IF L=4 AND L(7)<>@ THEN PRINT"YOU HA 
VE NOTHING TO DRINK FROM": RETURN 

950 PRINT"YUK! IT TASTES AWFUL,BUT WHAT 
pDOYOU EXPECT FROM A MACHINE...":RETURN 
96@ IF L(2)<>@ THEN PRINT"IT?S TOO DARK 
TO LOOK AROUND OR SEARCH": RETURN 

97@ IF L=2 THEN PRINT"THE SECRET-PAPERS 
ARE ON THE TOPSHELF"”: RETURN 
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98@ IF L=21 THEN PRINT"THERE IS A COIN L 

QCK ON A TOILETDOOR": RETURN 

99@ IF L=2 THEN PRINT"THERE IS A LOCKED 

DOOR WESTWARDSIT IS CONTROLLED VIA A CEN 

TRAIL COMPUTER, THE ONLY WAY TO OPEN IT 
IS TO CALCULATE IT’S CODE. "RETURN 

1006 IF L=28 THEN PRINT"THERE IS A SIGN 

SAYING TQ GO UP ENTER ’GO N’ ONCE UP, TO 
GO DOWN, ENTER °GO S’. (TYPICAL 

BUREAUCRATIC LANGUAGE!) ":RETURN 

101 PRINT"I?M LOOKING, BUT THERE’S LITT 

LE TO SEE. ":RETURN 

1020 IF L(6)=@ THEN PRINT"THEY FIT YOU P 

ERFECTLY":G$="YOU ARE WEARING GLOVES":L ( 

6) =35: RETURN 

10230 PRINT"YOU ARE WEARING ALL THAT YOU 

OWN": RETURN 

1046 IF L(5)=@ AND RIGHTS (CTS, 4)="MEMO" 

THEN PRINT" THE MEMO READS...":FOR T=1 TO 
15@@:NEXT T:PRINT"THE GLOVES ARE IN THE 
WASHROOM" s RETURN 

1050 IF L(5)=@ AND L=2 THEN PRINT"THE AN 

SWER TQ THE DOOR CODE HAS BEEN FOUND, JU 

ST ENTER *GO WEST’ ":P(2,4)=3:P (2, =) =2: RE 

TURN 

196@ PRINT"HELP YOURSELF, NO CLUES FROM 
ME“: RETURN 

1070 PRINT: INPUT"HAVE YOU REALLY HAD ENO 

UGH" As 

1680 IF LEFTS(A$,1)="Y" THEN PRINT"OK YO 

U HAVE GIVEN UP...coward":SOUND 1,146:END 
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16090 RETURN 

1100 IF LEFTS(CT$,3)="GUN" AND MIDS (NS,5 
»8)="SILENCER" AND L(12)=0 AND L(1)=@ TH 

EN GS=1:PRINT"SILENCER ATTACHED, YOU CAN 
NOW FIRE QUIETLY. ":RETURN 

1110 IF LEFTS(CT$,3)="LOC" AND MIDS(NS,5 
»4)9="COIN" AND CC=1 AND L=2i THEN PRINT" 
THE DOOR SWINGS OPEN, REVEALING THE GLOV 
ES": (6) =21: RETURN 

1120 PRINT"YOU CAN? T FUT THAT THERE! ":RE 
TURN 

1130 IF Gi=L THEN 1150 

1140 PRINT" THERE’S NO ONE NEAR YOU": RETU 
RN 

1150 INPUT"WITH WHAT": WS: IF LEFTS (WS, 4)= 
"WIRE" AND L(9)=@ AND RND(2)=1 THEN PRIN 
T"THAT GOT HIM! ":Gi=0 

1160 IF WS="ROPE" AND L(146)=@ AND RND(2) 
=1 THEN PRINT"YOU FINISHED HIM OFF!":G1= 
9 

1170 IF LEFTS(W$,4)<>"WIRE" AND WS<>"ROP 
E" THEN 1200 

1180 IF Gi=0 THEN Gi=RND(28)+2:IF G1=28 
OR Gi=L OR Gi=7 THEN 118¢@ 

1190 RETURN 

12@0 PRINT"YOU WILL HAVE TO FIGHT WITH Y 
QURHANDS...":IF RND(5)=1 THEN PRINT" YOU?’ 
VE KILLED HIM":61=0:GOTO 118@ 

1210 RETURN 

1226 PRINT:PRINT"YOU WERE 10@% SUCCESSFU 
L IN YOURMISSION AND THE ORGANISATION HA 
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SKINDLY LET YOU KEEP THE OBJECTS THAT YO 

U COLLECTED..." 

1226 FOR T=1 TO 18sREAD A(T) =NEXT T 
1246 FOR T=1 TO 18:IF L(T)=0 THEN PRINT 

O$(T)3" WORTH"SFRINT ACT); "POUNDS." 

1250 NEXT T 

1260 FPRINT"except the secret papers” 
1276 FOR T=1 TO S@@0:NEXT T 

1280 FOR T=1 TO 8:PRINT:PLAY"OSLSC": NEXT 
T:PRINT TAB(12);"WELL DONE":FOR T=1 TO 

B:PLAY"O4L8C":PRINT: NEXT T:END 

1290 FRINT:FPRINT“YOU’RE SAFELY AWAY BUT 

YOU DID NOT STEAL THE SECRET PAPERS. TH 

EORGANISATION ARE NOT PLEASED... YOU HAV 

E BEEN SENT BACK TO TRY AGAIN.":sFOR T=1 
TO 4@@0:NEXT T:RUN 

1300 FOR T=1 TO 4006:NEXT T:FOR T=1 TO 1 

6:PRINT: NEXT 

1210 FRINT" Qoooo 00000 00000 ia) 

“:PLAY"L16026" 


12260 FRINT" O im) 0 ia) 0": 
PLAY"D" 

1330 FRINT" QOocO ococo ia) 0": 
PLAY"“O1A" 

1240 PRINT" QO ia) ia) 0 O": 
PLAY"E" 

1350 PRINT" Q is) 0 ocoo00 000 


oo" :PLAY"C" 

136@ PRINT:PRINT:GOTO 1310 

127@ REM**XXxCOMMAND HANDLINGEEX* 

1380 T=1:IF LEN(NS)<3 THEN T=1@0: RETURN 
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1290 BS=MID$(CS,T,3)2IF BS=LEFTS(NS.3) T 
HEN T=(T+2)/3:GOTO 1420 

1400 IF T>97 THEN 1430 

141@ T=T+2:GOTO 1290 

1420 FOR CT=LEN(NS) TO 1 STEP—1:IF MIDS ( 
N$,CT,1)="_" THEN CT$=MIDS(N$,CT+1,3) EL 
SE NEXT CT 

143@ RETURN 

1440 REM*£4 INITIALISATIONKXX 

1450 DIM 0%(18),L% (30) ,P (20,4) ,L (18) ,ACL 
8) 

1460 FOR T=1 TO 18:READ O%(T):NEXT 

1470 FOR T=1 TO 30:READ L$(T):NEXT 

1480 FOR T=1 TO 18:READ L(T):NEXT 

1490 DATA GUN. TORCH, COFFEE—-MACHINE. SCRIBE 
BLED-MEMO, POCKET—COMPUTER, GLOVES, CUP, STO 
OL,WIRECUTTERS 

1500 DATA MONEY, COIN-MACHINE, SILENCER.LA 
DDER, KEY, PAPER-CLIPS, ROPE, SECRET—PAPERS, 
FAPERS 

151@ DATA THE MAIN ENTRANCE, THE RECEPTIO 
N AREA, THE DOCUMENT ROOM, THE STAFF CANTE 
EN, THE DELIVERY ROOM 

152@ DATA “A CORNER OF THE YARD NEXT TO 
AN ELECTROCUTED FENCE", "THE ALLEYWAY BEH 
IND THE COMPLEX, A CAR IS READY TO TAKE 
YOU AWAY" 

153@ DATA THE COMPUTER ROOM, THE MAINTAIN 
ANCE AREA,A DARK CORRIDOR. THE RECORDS DE 
PT,AN UNTIDY OFFICE 

154 DATA THE TYPING POOL, THE RECREATION 
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ROOM.A NARROW CORRIDOR,A PLUSH CONFEREN 
CE ROOM,AN UNLIGHTED NFFICE 

1556 DATA THE STRONGROOM NEXT TO THE VA 
ULT, THE STEEL VAULT, THE ACCOUNTS DEPT, TH 
E EXECUTIVE WASHROOMS 

156@ DATA "A COLD, BARE ROOM",A DARK COR 
RIDOR,"A CLEAN, NEW STOREROOM",A LARGE C 
UFBOARD,A BRIGHT HALLWAY 

15760 DATA THE TELEX ROOM,A LIFT, THE DIRE 
CTORS BOARDROOM,A SPACIOUS OFFICE 
1586 DATA 0,2,4, 27, 8,235 25,13,9,19, 20,30 
95,1@,13,11,34,11 

159@ D$="NORTHSOUTHEAST WEST " 

16060 C#="GO MOVTAKGETSTEDROREACL ICUTCHAO 
PEUNLF IRSHOWAI DR ISEALOOWEACOMCAL DECHELCL 
UGUIFUTHITFIGATTKIL" 

1610 O%="GUNTORCOFMEMCOMGLOCUPSTOWIRMONC 
QISILLADKEYCL IROPSECPAP" 

1626 P$="PARDON? WHAT?  RUBEISH! REPHRAS 
E" 

1430 L=1:L(1)=0:K=@: ST=10000: KY=0: GS=0 
1640 Gi=RND(28)+2:1F G1i=28 OR G=7 THEN 1 
64 

165 DC=RND (4) +4 

1660 FOR X=1 TO 3@:FOR Y=1 TO 4:READ P(X 
> Y) :NEXT=sNEXT 

167@ DATA 2.@,9,9,—-14515 450.0, 9, 2,0,0,19, 
9,2.0,15. 5,8, 0,9, 5,9, 0,0, 0,0,15, 24,0, 21, 
20,8,12,9 

168@ DATA 4,0,9,1,9,27514,12,17,0,11,16, 
16,0, 6,9, 26,0,18,11,5,8,,21,-1, 22,12, 26 
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,22,12,15,0 

169@ DATA 19,20.18,14,9,-1,@,0,18,9,9,9, 
2.17,8,-1,@, 17, —-1, 28, 16, 2F,9,17,8,9, 2651 
2.9,0,9,27 

17@@ DATA 6,14,0,24,11,-1, 25.13, 29,16,9, 
9,28, 0,0, 20,0,0,29,0 

171@ DATA 80, 10,0,1,200,8, 2,10, 22,9,9,1@ 
+40, 10,1, 27, 1000000, 2 

172@ RETURN 

173@ CLS:NNS="*XTHE NIELSON PAPERS" 

1749 PRINT @ 13@,"A FULL SCALE TEXT ADVE 
NTURE":PRINT @ 364,"C.1982." 

175@ FOR F=1 TO 3 

176@ FOR T=1 TO 2@:PRINT @ 228,MIDS(NNS, 
T,21-T) :PRINT @ 249-T,LEFTS (NNS, T) 

1770 PLAY"P10":NEXT:NEXT 

178@ PRINT @ 228," ";:FOR T=1 TO 10@0:NE 
XT Ts RETURN 
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CHAPTER 4 


OTHER FORMS 
OF ADVENTURES 


So far, we have only considered the more standard type of 
adventures. If you remember from the first chapter, | empha- 
sised that there were many extremely varied styles and 
formats of adventure. This chapter attempts to cover these 
other no less popular adventures and includes full imple- 
mentations of two different types. 


A good starting point, if you arenewto adventure writing, is to 
start writing a grid-based adventure game. These types of 
adventure are very popular and some commercial software 
claiming to be ‘full scale adventures in the classic mould’ are, 
in fact, ‘beefed-up’ grid games. Grid games are generally less 
versatile and less challenging to play, though they can still 
provide great entertainment. A hybrid game using agrid basis, 
but including a list of commands similar to ‘The Nielson 
Papers’, would provide an exciting programming and 
adventure-playing challenge. 


Let's look a little more closely at what a grid game actually 
entails. The most usual way for a grid to be formed is for it to 
be dimensioned in an array. In our grid game, ‘The Golden 
Chalice’, there are 100 different locations; therefore, the array 
containing the locations is dimensioned with 190. A number 
of the elements in the array are then given certain values. 
These differing values are, in fact, the treasure, monster and 
pot-hole squares. All other squares not given a special value 
are left blank and are, in fact, empty squares that you can 
move easily between. 


83 


Each type of obstruction/object is given a certain value 
unique to that type of obstruction/object; for example, in ‘The 
Golden Chalice’, all the squares containing monsters are 
given the value ‘109’. In my game, the figure given for each 
item is the CHR$ of the symbol that represents that item on the 
map display. 


Once you have dimensioned an array and given a value to 
each square, it is a simple matter of writing routines to handle 
each square. You will firstly have a number of IF... THEN 
statements telling the computer that if the square the player is 
standing on contains a monster (ie. in my game, if tne valueis 
equal to 109) then go to the special subroutine that deals with 
monsters. If you have a grid game with monsters, treasure, 
magic spells and quicksand, then you would have only four 
subroutines of this nature to write; obviously many games are 


larger and more complex than this thus demanding more 
subroutines to be worked out. 


Each subroutine can be written separately allowing you to 
structure and break down your program into neat and tidy 
blocks of code (as mentioned in the first chapter). Once done, 
the next stage to aim at is the ability of the player to move from 
square to square (location to location). 


The best way to allow movement in a grid game is to imagine 
the playing grid as a flat square, numbered along each row. In 
this example, | have used a ten by ten grid; this is not the only 
possible case - any size grid within your computer’s memory 


requirements is possible. A diagram of the grid is shown 
on the next page. 


If you press the key corresponding to rightwards movement 
on the grid then one is added to the position of the 
adventurer’s character moving you rightwards. Looking at the 
diagram above, it is quite simple to see that to move left oneis 
deducted, to move up/north a value of ten is deducted, while 
ten is added to the adventurer’s position if you request to 
move downwards/southwards. 


With these pieces written, it is now necessary to add all the 
‘frills’ to the program. Lines will be needed to stop a player 
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SRESEICIEACIEACIID 
2359455780 
54 [5556 57 [50 50| 60 
et |62|60| 6 65 66 67|6a 60] 70 
7+|72| 76 74|75|76|77|70| 70 <0 
| 2 |69| 64 [65 | |67 [00 | 00] 90 
01] 92| 924 [95/9 |97 [099100 


moving off the boundaries of the grid, and ‘win’ and ‘lose’ 
routines need to be developed. All the other ‘niceties’ are 
really up to the person writing the adventure, but the more 
common ones are a map showing all the squares and what is 
contained on them, a title page, a timer feature, a list of 
possessions that can be acquired by going around the grid 
and probably the most important ‘frill’ of all, some sort of 
objective to the game, whether it is to accumulate as much 
treasure as possible or to find the secret code to the IBM main- 
frame, to give just two examples. 


One can see, therefore, how this form of adventure satisfies all 
the conditions of an adventure | put forward in the first 
chapter. 
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Another point to note concerns how the different objects and 
obstructions are placed in at the beginning of the game. You 
can either place them randomly as | have donein ‘The Golden 
Chalice’ or by using DATA statements, keep them rigidly in 
one place all the time - it really is just a matter of your own 
preference. In this type of adventure, having a random 
element of some considerable influence on the game-play is 
perfectly permissible. 


Now, moving on specifically to my grid game ‘The Golden 
Chalice’. You are stuck in the Caves of Delirium somewhere 
on the planet Zarg, in the Methusian sector. Your aim isto find 
the fabled Golden Chalice and then climb out of the caves via 
one of the many openings in the cave roof. Sounds easy, huh? 
Well, there’s a lot more to it than that. You have around 
4@ hours to find the chalice and must avoid the many 
tormented monsters that are also trapped in these unnatural 
caverns. There are many other features, just two of which I will 
tell you about. 


Firstly, you need four pieces of rope to climb out of the 
openings in the cave roof. Secondly, if you are carrying the 
map, then press the ‘M’ key and you will catch a glimpse of the 
cavern system but lose three hours as a penalty. To move, use 
the compass points N, S, E and W, remembering that you are 
placed near the centre of the cave system. 


Oh, just one final point. If you find a torch then you will be 
given your cave situation for the next few moves before the 
torch burns out. You may find that you have some trouble 
decoding the map as all the various objects and obstructions 
are represented by single characters. Tough! | will leave you 
to sort out the map as yet another problem to confront while 
trying to find ‘The Golden Chalice’. 


10 REMAkK*kX*k*kTHE GOLDEN CHALICEKXkxxkxxk 
29 DIM A(1@O) :P=@: C=P:MK=P: SC=P: M=P 

30 FOR T=1 TO 100: A(T}=RND(100):IF A(T) < 
36 THEN A(T)=46 
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40 
3 
50 
7® 
Bo 
90 
190 
119 
120 
12=0 
144 


IF ACT) 255 AND A(T)<66 THEN A(T) =62 
IF ACT) 265 AND A(T)}<76 THEN A(T) =109 
IF ACT) 375 AND A(T)<86 THEN A(TY=42 
IF ACT? 385 AND A(T)<96 THEN A(TI=22 
IF A(T)295 AND A(T)<1@1 THEN A(T)=48 


NEXT T 


FOR T=1 TO S:A(RND(19@))=41:NEXT T 
FOR T=1 TO 1@@:IF A(T)=41 THEN C=C+1 
NEXT T:IF C“4 THEN C=@:GOTO 100 
MP=RND (100) A (MPO =25: TM=47: C=0 
GC=RND (19) :A( GO) =2Z6s X=ZO+ (RND (2) k10 


2+ (RND(2)+4) 


1464 
17@ 


188 


GOSUB 440 

GOTO 246 

INPUT"WHAT NOW"; NS 

IF NS="M" AND ACMF)=46 THEN GOSUBR 40 


IF NS="N" AND X>10 THEN X=X-10 
IF NS="S" AND X<9@ THEN X=X+10 


IF NS="E" AND X/1@<>INT(X/10) THEN X 


IF NS="W" AND (X-1)/16<>INTC(X-1)/10 


> THEN X=X-1 


240 
4k4 
250 
R u 
260 


CLS: PRINT" >>>>>2>>THE GOLDEN CHALICE< 
“ecu 
IF M>9 AND C<& THEN PRINT"CAVE NUMBE 


7X 
PRINT"YOU HAVE"; TMs “HOURS LEFT. ":PRI 
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@ PRINT"YOU ARE" 

28@ SOUND 180,1:1IF A(X)=62 THEN 440 

290 IF A(X?}=41 THEN 470 

308 IF A(X)=25 THEN Si 

IF A(X)=26 THEN SSa 

IF A(X)=48 THEN 600 

ZI@ IF ACX}=109 THEN 624 

74@ IF A(X)=42 THEN 720 

350 IF A(X)=22 THEN 760 

26@ IF RND(2)=1 THEN FRINT TAB(7)"IN AN 
EMPTY CAVE." ELSE PRINT TAB(7)"0N A CLEA 
R LEDGE." 

37@ @=C+1:TM=TM-1:1F TM<1 THEN TM=0: GOTO 
9314 

280 PRINT 

29@ GOTO 186 

4900 REMKXKXXMAP DISFPLAYKAKKK 

419 CLS:PLAY"LI2DEC"2 A(X) =72:FPRINT: PRINT 

420 FOR T=1 TO 1@@:PRINT CHRS (A(T) 3: IF 

T/1@=INT(T/1@) THEN PRINT 

430 NEXT T:FOR T=1 TO 20@0:NEXT T: TM=TM— 

3: A(X) =46: RETURN 

44Q@ REMKXX*KXTORCHEKKKKK 

450 PRINT TAB(7) "NEXT TO A BURNING TORCH 


46@ PRINT"THIS WILL HELF YOUR EXPLORATION 
N"3C=6:2A(X)=462M=M+12:G60TO 270 
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470 REMKAXKAXEKXKROPEXKKKKKE 

48 PRINT TAE(7) "IN A CAVE WITH SOME":FR 
INT"ROPE ON THE FLOOR." 

499 ACX) =46:P=P+1i:1F F>2 THEN PRINT" YOU 
HAVE ALL THE FROFE'" 

56® GOTO 274 

Si@ REMKXKXKXMAPAXKXKEKK 

520 PRINT TABC7) "STANDING NEXT TO A MAP 
OFTHE CAVES OF DELIRIUM.” 

S2@ PRINT: PRINT"IF YOU EVER WISH TO SEE 
THE MAP.ENTER *M* AND YOU WILL RECIEVE A 
MUICK GLANCE AT IT. HOWEVER THISCOSTS YO 
Y 3% HOURS IN TIME." 

54% ACME) =46: FPLAY"OZL4CDEFGFE": GOTO 370 
SSO REMEKX*KXEOLDEN CHALICEKKxkx 

S6@ PRINT TABR(7)"IN THE TREASURE ROOM": 
LAY"D2LBCEDFGABR" 

S7@ PRINT“BESIDE YOU, THE CRYSTAL STATUE 
":PLAY"OZLECEDFGABB" 

S86 PRINT"IN IT’S HAND, THE GOLDEN CHALIC 
E'"':FPLAY"O4L8CEDFGEABB" 

59@ ACEC) =446:GOTC 278 

500 REMK*AKXKFLOODKXEXK 

619 PRINT TAR(7}"UP TO YOUR NECK IN WATE 
R'":PRINT"THE FLOOD HAS COME.":FLAY"OIL1 
®BAGFEDCC" 

S52@ PRINT"YOU MANAGE TO SWIM TO SAFETY B 
YTYOU WASTE 16 HOURS. ":TM=TM-1@:GOTO 276 
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S52Q@ REMKXXXEXMONSTERKKXKXK 

64@ RESTORE: FOR A=1 TO RND(S5):READ MS: NE 

XT 

£5@ DATA SERPENT, BACKBREAKER, GRIZZLY.GIA 

NT RAT, WOLFMAN 

66@ PRINT TAB(7)"IN deep trouble. YOU HA 

VEAWOKEN THE "3M 

£7@ PRINT"YOU MUST EITHER FIGHT. OR FLEE 
ENTER YOUR CHOICE (1=FIGHT, 2=FLEE)." 

48@ INPUT F:IF F=2 THEN X=X+AND(S) -RND(S 

)s TM=TM-6: PRINT" YOU" RE SAFE FOR THE MOME 

NT": GOTO 270 

£9@ R=RND(Z)<sIF R=1 THEN FRINT" YOU KILLE 

D HIM WITH NO EFFORT WHATSOEVER! WELL 

DONE": PLAY "L&S04CDEFGCDEFGCDEFGABB": TM=TM 

+1@:MK=MK+1: GOTO 270 

70@ IF R=2 THEN PRINT"AFTER A FIERCE BAT 

TLE. HE STARTSTO RETREAT. YOU HAVE WON!" 

2 TM=TM-Z: PLAY"OZL4CED":MK=MK+1:GOTO 27a 

7i@ PRINT"THE BATTLE WAS HARD, YOU FOUGH 

T BRAVELY, BUT THE "3M$:" WON"SFLAY"Q1L4 

EDC":GOTO 89a 

720 REMKXKXX*XXQUICKSANDKXKKKKK 

720 PRINT TAB(7)"IN QUICKSAND AND SINKIN 

G':PRINT™FASTH Its 

740 FOR T=S@ TO 1 STEF -1:SOUND T,1:NEXT 

75® SOUND 1,9:GOTO 890 

76Q@ REMKXXXXXOPENINGAKAXKEK 
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77 PRINT TAB(7)"STANDING BELOW A SHAFT 

OFLIGHT, THERE LIES AN OPENING!!!" 

720 PLAY"04L14@CDEFGGFEDC" 

79@ IF F=4 THEN GOTO 97@ 

200 GOTO =70 

B1@ REMKKX*xXOUT OF TIMEXKE*EK 

2270'PMODE 4.1:PCLS:SCREEN 1.1:CIRCLE(12e 

+96) .88 

BzO CIRCLE (128,96) , 2: LINE (208, 96)-(193, 

96). PSET: LINE (48,96) - (62,94) , PSET 

94@ LINE (128.176)-(128,161).PSET:LINE (12 

9,16)-(128,21) ,PSET 

85@ LINE (128.96)—-(118. 20) . FSET: PLAY"L4e0 

ZCFi": LINE (128,96) —-(118, 20) , PRESET 

86@ LINE (128, 96)—(128,16) .PSET: PLAY"L4@0 

1cPi" 

87@ FOR T=1 TO 1@0@:NEXT T 

REQ CLS @: PRINT @ 2Z2,."TIMES UP! ";:FOR T 

=t TQ 1@@@:NEXT T 

29Q REMKAEAKXDEFEATKRKEEKK 

90@ CLS:FRINT:PRINT"YOU ARE DEFEATED, TH 

— CAVES MAKEAN IDEAL BURIAL CHAMBER FOR 

YOU AND THE OTHERS THAT HAVE FAILED." 

919 IF A(GC)=46 THEN SC=SC+4@ 

920 SC=SC+(15*P)+(1@%MK) +TM 

9Z@ PRINT: PRINT"YOUR EXPLORATICN LEVEL I 

S ";sc 

940 PLAY "|_20@0 1CDEFGABO2CDEFGABOZCDEFGAEB 
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C4CDEFGAB" 


95@ PLAY" BAGFEDCOZBAGFEDCO2BAGFEDCO1 BAGF 
=£pcccc" 


960 PLAY"P4":GOTO 94@ 
979 REM EKKAVICTORY RK KEK 
980 PLAY"OZL4GP2": CLS: PRINT: PRINT "++4+44+ 


+4+44+4+WELL DONE+4+4+444+44+4+4+" 


990 PRINT: PRINT"YOU MANAGED TO ESCAPE F 

ROM THE CAVES OF DELIRIUM." 

1900 IF A(GO)<>46 THEN 1020 

1@1@ PRINT"AND WITH THE PRICELESS OLDEN 
CHALICE. ":PLAY"!_2@04CDEFGGFGABBEB" 

1626 SC=SC+20G: FLAY"LZ@O4CEDDP2": PRINT: F 

RINT: GCTO 919 


An area of adventure gaming that we have not yet discussed 
so far is the graphic adventure. On a machine such as the 
Dragon 32, the possibilities for a high quality adventure 
played entirely in one of the graphics modes are very good 
and indeed, there are many commercial adventures of this 
type. Generally, graphic adventures are real-time games 
using INKEY$ rather than INPUT for the adventurer to enter 
directions and actions. 


This chapter contains one area of graphics adventuring, the 
3D maze game, with a program to illustrate this form of pro- 
gramming simply called ‘3D MAZE’. The object of the gameis 
very simply to find the treasure, collect itand then make your 
way out through the exit. The interest in the game is generated 
by the graphics and movement around the maze. 


To move around the maze, you must use the ‘1' and ‘2’ keys for 
left and right respectively, the ‘O’ key to go forward and the'‘L’ 
key to turn around 180 degrees. The maze walls and exits will 
be displayed on-screen in perspective. At the beginning of the 
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game, if you turn around you will see the exit and thatis where 
you must aim for once you have acquired the riches hidden 
somewhere in the depths of the maze. You will need to play for 
a short while to get the idea of the movement and perspective. 
The number of recognised moves is stored and displayed at 
the end of the game should you succeed. The treasure is in 
one of seven random positions and its precise location will be 
decided at the start of the game. 


From a programming angle, this program is very interesting to 
look at. Over half of the program is data. There are two basic 
chunks of data: the first major block, starting at line 680, 
contains the information about exits for the DRAW commands 
to interpret; and the second block of data, gives all the 
location links, ie. if you turn around 186 degrees at location ‘6’ 
you will be at location ‘3’. There are 10@ locations, but foreach 
one there are two directions to look at them from (hence the 
200 items of data in each block). The key presses are inter- 
preted by lines 260 and 280. 


I'm sure you will enjoy this excellent program, which was 
originally written for the ZX Spectrum by Scott Vincent of 
Ashford, Middlesex. Scott is a talented programmer anda very 
patient character - he had to be as we spent along and often 
frustrating time converting this program. It was worth it and 
I’m sure you will agree once you've spent some time delving in 
the depths of the maze. 


This concludes our discussion on other forms of adventures. 
19 REMAKXXEKED MAZEXEEKKEY 
20 DIM Mt (200) .N# (200) 
30 CLS:PRINT: PRINT 


4@ PRINT" L1l11111 1111111" 

wa FRINT" J ] a 

40 FRINT" L 1 1," 

70 PRINT" 111121 ] 1” 

B® FRINT" 1 1 i? 

9@ FRINT" I 1 ye 
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10@ PRINT" LLL1111 LLILL11"sFRI 

NT:PRINT:PRINT TAB(14):; "maze" 

11@ FOR T=1 TO S0@:NEXT T 

120 FOR X=1 TO 20@:READ M%(X):NEXT 

{Z@ FOR X=1 TO 20@:READ N(X):NEXT 

140 K=0:L=1:TR=@:X=RND (7) 

15@ LA=-2@1%(X=1 OR X=4 OR X=6 OR X=7)-8 
LX (X=2) 127k (X=3) -169% (X=5) 

16@ LE=-201k(X=4 OR X=6)-100k (X=1)-84K (X 

=2) 122% (X=3) -172k (X25) — 196K (X=7) 

179 LO=-94% (X=1)-98K (X=2) - 124K (X=) —-1 71% 
(X=4) -117% (X55) 191K (X=6) 199K (X=7) 

180 PMODE 4,1:COLOR @,1:FCLS:SCREEN 1,1 
19® PCLS:FOR X¥=1 TO 9:IF MIDS (M#CL),X, 1) 

£>"@" THEN 210 

200 ON X GOSUB 430, 450, 400,470,470, 490,5 
10,530, 400 

210 NEXT X 

220 FOR X=1 TO 9:IF MID@(M#(L).X,1)¢2"1" 
THEN 240 

230 ON X GOSUB 440, 460,550, 480,500,590,5 

20,540,630 

240 NEXT X 

250 IF L=2 OR L=LA OR L=LB OR L=LC THEN 

GOSUB 330:IF L=2 AND TR=1 THEN 14 

260 AS=INKEY$:IF AS="" THEN 260 

27@ PLAY"V31L24@01CDR" 

280 P=-VAL (LEFTS (N$(L) , 2) ) X (AS="1") -YAL ¢ 

MIDS (N#(L),4,3)) K(AS="@") —VAL (MIDS (Ni (LD 


3752)) * (AS="2") -VAL (RIGHTS (NE (L) . 3) ) K CAS 
pt 
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290 IF AS="R" THEN 419 

300 IF F=@ THEN 268 

Z1@ L=F 

32@ K=K+1:G0TO 19@ 

ZEO IF L=2 AND TR=® THEN DRAW"BM1@®, 100; 
USRELED4RSLSD4RSERGESBL.BFSBRBR4UBL4REBBDB 

L4BR16USL4RBEM®O. 140: R8SU1G@RGOD100RI0":F 
LAY" O3LGCGEFEDD": RETURN 

240 IF L=2 THEN CLS RND(8):PRINT @ 230," 
WELL DONE";K:" MOVES"; :PLAY"Q4L1@@CDEFGA 
BF40":GOTO 240 

250 IF L=LA THEN DRAW"BM116, 76:C146R22EM1 
16, 99: R2200": RETURN 

260 IF L=LE THEN DRAW"EM1@0, 60:C1R54EM10 
@,115:R54C@": RETURN 

279 IF L=LC THEN DRAW"BM72, 32;C1R11@EM72 
,143;R110:C0" 

280 IF TR=1 THEN CLS:PRINT @ 225,"YOU AL 
READY HAVE THE TREASURE! ":PLAY"P1":PMODE 
4,1:COLOR 9,1:SCREEN 1,1:RETURN 

390 TR=1:CLS:PRINT ®@ 227, "YOU HAVE FOUND 
THE TREASURE! ": PLAY"O4L8CDEFGABBB" : PMOD 

E 4,1:SCREEN 1,1:COLOR @, 1:PCLS:RETURN 
49@ RETURN 

410 y=! 

420 REMKXKKXKKDRAW BLOCK XK IKKKX 

430 DRAW" BM4, @;F32BM40, 175; ES52":RETURN 
44@ DRAW" EM24, @;D175US2R48U111L48":RETUR 


459 DRAW" BM182, 32; ES2BM182, 143; F32":RETU 
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46@ DRAW" BM221,0;D17SUS2L48U111R48":RETU 
RN 

47@ DRAW" BM7%, 23:F27EM72, 1492: 627": RETURN 
480 DRAW"BM73, 33;F11D87G11BM8S, 115; R15U5 
5L15":RETURN 

490 DRAW" BM155, £60; E27BM182, 142:;H27":RETU 
RN 

5@O DRAW" EM182, 142;H11U87E11BM17@, 1153L4 
SUSSR15":RETURN 

S19 DRAW"BM1@1,61;F19BM1@1,114;E19":RETU 
RN 

52@ DRAW"BM101,61:F8D37GBBM114, 74: R6F4H4 
D23L6R6E4": RETURN 

5Z@ DRAW"BM154,61:G19BM154, 114;H19":RETU 
RN 

54@ DRAW" BM154, 61; G8D37FSEM145, 76; L6G4E4 
D23R6L6H4": RETURN 

55@ DRAW" BM73, 22; R110BM73,143;F110" 

560 IF LEFTS(M#(L),1)="@" THEN DRAW" EM?2 
,33;D109" ELSE DRAW"EM72,23;C1D1@9Co" 
S70 IF MID®(M#(L),2,1)="0" THEN DRAW" BM 
B2,22;D109" ELSE DRAW" BM18%, 22:C1D109Ce" 
580 RETURN 

590 DRAW"BM101,60:R54BM101,115;R54" 

600 IF MIDS(M$(L),4,1)="O"THEN DRAW" EMLG 
@,61;D53" ELSE DRAW"EM10@, 41;C1DSzCe" 
610 IF MIDS$(M$(L),5,1)="@" THEN DRAW" EM! 
55.61;D53" ELSE DRAW"BM155, 61;C1DSaCe" 
620 RETURN 

£30 DRAW"BM116,99;R2EBM116, 74; RESC1BM117 
,98;E4BM117,77;F4BM138, 98; H4BM138, 77;G64C 
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on 
440 IF MID#(M$(L),7,1)="0" THEN DRAW"EM1 
16,77;D21" ELGE DRAW"BM116, 77; C1N21Ce" 
£56 IF MID€(M$(L),98,1)="0" THEN DRAW"BM1 
39,77;D21" ELSE DRAW"BM1L39, 77:C1D2Z1Ce" 
66® RETURN 

57@ REMKXKKXXDATA BLOCK XKXEXX 

68a DATANLLIN "", "@HMOoOOLla" "1a1", "“Aaaae 
19906", "@19101", "910000011", "900010101", 


199990000", "111", "940100000", "101", "101" 
"MOL" "@1@101", "101", "1O8aOa@aL"<, "O11", "ae 
La  OLL sed" 

49@ DATA"199090900"."O11", "910011", "0001 
LOOLA" U@L1i", "O11", "101", "100OLL" "191", 
"@OO111", "111", "911", "111", "900111", "000 
O11" "1OOHOOALL1", "@1aO@@G1O1", "11", "119" 
3960101", "O10101","101", "1900101901", "00 
1", "@O@1HaO@1 a" 

79®@ DATA"@11","@19111", "111", "O11", "1900 
LMM" "OLA" "@@1" "11". "11911". "111", 
"@11"."00@0111", "901", "@01","110001","119 
MOO111", "@O1" "181", "118@0@1L" "111", "9eaae 
19160", "141", "010100191", "@10101", "111" 
3101", "1800000010", "190000001", "91010000 
Ooh," "GOOO@ar" "11a", "111", "@Maam@ar 1 
"S "111", "109111", "900111", "009100111", "1 
11", "@@@OOO1O@", "OO1", "O81", "1a8w@aL," «Sat 


O11", "O81", "800010011", "9819001" 
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0@", "O11", "@G0G8O191", "111", "989101", "2 
@LLi" "11", "11G1G1", "e@MO@a1 11", "101", " 
O11", "900000110", "111", "900101", "O01", "1 
LHOAAaHA", "LHHAOALAL", "111", "O11", "aang 
1" 

73@ DATA"100011", "901", "990100011" 

740 DATA"100011", "@1o000001", "O11", "101" 
41", "O04", “LL i", "O19", "919191", "a1", 
"11", "101", "101", "@DOOOG110", "B11", "Oad 


1190900", "900011", "119000000", "@OOO@@111" 


»"1LOOOL1", "@HOOOOO1L1", "OOOOOL LO", "Lima 
0000", "900119111", "99011990900" 

75@ DATA"L1@111", "110011", "O8080O11", "O11" 
"O11", "O11", "9OOO11", "191", "11", "111", 
"1O1", "O11", "@OO1MOOOO", "GLI", "11", "1008 
0OO19O" "101", "O11", "@8OO1GO001", "O11", "1 
OL" "Q1OOOL" "O@OLL i", "11eLm@eae@si" "tri" 

7469 DATA"G90119100", "696900110", "@OOOO1 


OA", "OOOOLOMOLI", "1OOHOOHOOA" "G1LO@11", "ae 


fie, "9@1" c "@i1i" ‘i "ai" . nm 191", "@1AGHBDOOODO" Py 


"@OHOO1L"  "OAOALMOOOa" "O11", "O11", "ODOa1I 


77% DATA 992949004902", "9990900000001", "9 


OOOMASOOMHOS" , "ALSSAOOMOOMADLS" , "OHOAO?T DOOM 


99800007", "009000014015" 
780 DATA"OO9O11LOOOO1O", "@1BOOOOL7O1IG", "C 
990120909012", "9150990990014", "92000009002 
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94OO22" "016018000017", "990990021920", "@ 


1", "OHOAOHOHOOLI" , "OHOO1 70146018", "@2zOae 


7°90 DATA" 928000000027", "9O290907209GG004", "0 


O" ,"OOO99OOT2O23" , "9999999279028" , "925000 


3" 7 "a 


990725000027" ,"929900038040" 

BOO YNATA"HOOOHOOS4O35", "O42OOOOATO41" 
QHORTO99SDS2" , "O8GOO9O27OO9OZE", "O4002590000F 
8B", "O@OHO4SO44046", "8 
972970", "809047008048" , "9000470419042", "a 


IO", "OAFMASHMODAT" 


QOOASA", "@2OOSLAOOOSa" "a 


» "@7 10D 


£19 DATA" 09990000051", "@90048000047","0 
DOOAHASAAII" , "OOOAZVOAOOZTO" , "GL LOOO@1LOMe 


FS" "AOGODOOS7TOSL" , "@41 942000045" , "9090000 
CT 
&2 
B20 DATA AHOHOMAAS7 O66", "AHOASOAIANAE" , "H 


AN" O6ADG2OS 
OM9OE7" "0619649062055", "946000045044", "0 


BQHOOOODADES" , "DONOOOOOOOHES" , "O6206205198 


BOGL", "OHOOHOOOOMOOSS", "@6460OR 


“ PB BD SA) 


amy? 
S29 DATA"@0@0976£075077", "@G9@072070071", "1 
SLOOOL2212O", "@7BO79OOOOBO" , "OOOO74 900O?7 


2", "@90087 088086", "9819099080082", "875077 


OAMDI SG" » "MBSOB4OOOORZ" , "OOONBOO7BATO" "O 
09949982981", "990098900097" 

B40 DATA" HS464000087088", "O79OOOOBOO7R", "CG 
09999900989", "@849O0087085", "088908600008 
2" "OAOHS2OODAD LL", "OHOARVQOAHRIA" , "APA 
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P 


O09 4095" ,"O80O9199EO92", "OO9O999O9909E","O 
850 DATA"@009082085984", "999990000099", "@ 
HOOD 7HOOMAIB", "AAOAS4OOROIS", "QOOLAS 10518 
4" ."@70071900072","146144147145", "989900 
1@2101","OO@187000106","104O@@1O3105", "0 
$©1909000198", "990196000197" 

860 DATA" 1L1LMOOOOOOO1L1I" "LIFI L211 112", "0 
09198040199", "152000000152", "O9OOO0@11111 
@", "@OO@L5@@@O@1L5S1L" "11 6OO@117118", "oar t 
0601723", "9900000000119", "117114112115","1 
1811460@@117", 


4" "LIO@1 2900129", "9OO122120121", "499900 
135124" 2"L270@OOOO 124" ie LE1OOMOOM LER," @ 


pal MPI J. alte INNS a 


OOOSOSOOOO1L ZZ", "128000129120" 


888 DATA" OOOOOO1L S221", "@OOL 29120120", 00 
OOOOO1 25127", "1299000900128", "12490000013 


S","LS7OOOOOalEg", "O@OO1L41OOOL4O", "MMAOOA 
138129" ,"900142000142","@00140@0@141", "1 
AALA7Z145146", "OO@1 75000174" 

89@ DATA"195194000103", "990142600142", "@ 
OO149O0OO146". "145146144147", "OOO1L51 90015 
@" "001489000149". "112115112114","115112 
114112", "OOO1 54000155", "OOOOOO1L54157", 'O 


99OOO152153", "900000159158" 


$99009009161", "1570061464152", "15800000015 


165166", "158060000147", "1621672000164","1 
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£"."147145146144","178900179177", "@0@174 
HOOLZE", "OO@OL7 6000175", "OOO1B20001B2", "a 
04191990180", "177178000179" 

P20 DATA"OOO164162162", "OOO1B4000185", "a 
@@179177173", "1861870001988", "990182090018 
2" "LIMMOHOOOODLBO", "OOO194OOO@1L 95", "OOa1O5 
6OO184" "187000188186", "990000191192","9 
928 DATA"192000000191". "1960000900197", "@ 
HO1B88 186187", "8OO1999GO19B", "MaO195aaa19 
4°" 5 "9O99OO197196", "990090900200", "000198 


9°40 GOTO 746 
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CHAPTER 5 
THE CITY OF ATLANTIS 


This adventure game was originally written by lan Watt. lanis 
an experienced adventure programmer who has contributed 
many of his programs to magazines and is the author of 
‘Creating Adventures On Your BBC’. This game was originally 
written on a BBC Micro and was subsequently converted to 
the Dragon 32 by myself. 


At the start of this adventure; you find yourself imprisoned in 
the detention centre of the fabled city of Atlantis. Your diving 
expedition took you too close to the city and the Atlantans 
think you are a security risk. On your own and guarded by an 
Atlantan guard, you must find your way back to the diving ship 
you left some time ago. 


Many hazards lie in your path and you find it hard to cope with 
the thin atmosphere that prevails in this city under the sea. 
Trust to your luck and skill, and make haste for the power 
reactor that provides the city with its energy resources is 
becoming unstable. 


After being asked whether you require instructions or not, the 
computer displays the name of the location, the objects there, 
the items that you are carrying (the inventory) and then awaits 
your command. Some commands are only one word, such as 
‘NORTH’, while others involve a verb andanounsuch as ‘GET 
FLOWER’. Following on from this piece is a list of all the com- 
mands and objects together with their codes. These codes are 
abbreviated forms of the full words and enable you to enter 
each command and object quickly. If you have a two word 
command, first enter the command like ‘FIGHT’ or ‘EXAMINE’ 
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and the computer will then prompt you with the word 
‘OBJECT’. You may then enter the object to be manipulated. 


There is a long pause between command operations allowing 
you to read and note any response that the computer displays. 
If you wish to speed up the program, just press a key when a 
pause starts and the program will continue. 


This program, while being an adventure of the standard kind, 
is written in a different style to my own and, therefore, should 
provide an interesting contrast. There is no right or wrong way 
to put together an adventure program and both styles achieve 
the same objective, a playable adventure game. 


Here then are the lists of locations, commands and objects 
that will aid you in your quest. 


LOCATIONS: 


(1) Detention Area. 
(2) Indoctrination Area. 
(3) Sports Arena. 
(4) Barren Ground. 
(5) Blocked Exit From The Arena. 
(6) Advanced Part Of The City. 
(7) Primitive Part Of The City. 
(8) Old Part Of The City. 
(9) Garden Walkway. 
(10) Food Growing Area. 
(11) Central Dome. 
(12) Atlantan Lecture Theatre. 
(13) Nuclear Fusion Power Reactor. 
(14) Water Hydrolysis Area. 
(15) Atlantan Radio Station. 
(16) Border Of The City. 
(17) Passage Out Of The Kingdom. 
(18) Slave Labour Area. 
(19) Animal Specimen Centre. 
(20) Underwater Observation Point. 
(21) Forbidden Zone. 
(22) Equipment Storage Area. 
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COMMANDS: 


(23 
(24 
(25 
(26 
(27 


NORTH 
SOUTH 
EAST 
WEST 
GET 
TAKE 
PICK UP 
DROP 
LEAVE 
THROW 
KILL 
FIGHT 


EXAMINE ‘ 


FRISK 
SEARCH 
OPEN 
PUSH 
UNLOCK 
WEAR 
EAT 
FEED 
INSERT 
CLIMB 
QUIT 
RAISE 
PLANT 
VAULT 


) Murky Lagoon. 
) Air Lock. 

) Steep Incline. 
) Cliff Face. 
) Top Of The Cliff. 


sli ia 
‘SO' 
‘EAS’ 
‘WES’ 
‘G’ 
‘TA’ 
‘pp 
"Ty 
‘LE’ 
‘TH’ 


OBJECTS: The number after the object denotes the starting 
position of that object. If the number is 2’ then 
that means that the object is not in a room. 


HYDROGEN ‘HY’ 14 
DIVING GEAR ‘‘D’ -2 
FUEL SLOT ‘FU’ 13 
LOCKER ‘LO’ 22 
ATLANTAN ‘AT’ 1 
SCIENTIST ‘SC’ 2 
GLADIATOR ‘GL’ 3 
OLD DOOR ‘OL’ 5 
MASTER KEY ‘MA’ 8 
FRUIT ‘FR’ 10 
GORILLA ‘GO’ 19 
SEA MONSTER ‘SEA’ 21 
THICK GLASS ‘T’ 20 
ROPE LADDER ‘R’ 25 
HANDLE ‘HA’ 27 
AIR LOCK ‘Al’ 24 
CHAINS ‘C’ 18 
MICROPHONE ‘MI’ 15 
WARRIOR ‘WAR’ 16 
ORG ‘OR’ 17 
SLEEPY ORG ‘SL’ -2 
GROUND ‘GR’ 4 
JACKET ‘J’ 6 

FLOWER ‘FL’ 9 

LECTURER “LE 12 
BOOKLET ‘B’ 11 
SEEDS ‘SEE’ -2 
POLE VAULT ‘Pp? -2 
WALL ‘WAL’ 7 

METAL ROD ‘ME’ 23 


Here is a plan of the adventure scenario. This will help you 
greatly in trying to find your way around the adventure. The 
numbers on the plan correspond to the numbers on the 
location titles. 
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Here follows the complete listing of ‘The City Of Atlantis’ for 
you to type in. 


190 
20 
3@ 
40 
S@ 
6@ 
7@ 


REM KXKK KK EKER KK EKKAKKKEAKAEAKKEK 
REMK&K*XKKXKCITY OF ATLANTISS&KKEXK 

REME KX EK EKERKAEKER EKER AKA EKERE 

xX=0 

CLEAR: GOSUB 1520 

GOSUB 16230 

PRINTsSPRINT:PRINT"DO YOU WANT INSTRUC 


TIONS? (Y/N) "32 INPUT Z$:IF Z$="Y" THEN 8 
@ ELSE 160 


Bo 


CLS: PRINT"WHILE ON A DIVING EXPEDITIO 


N YOUWERE CAPTURED BY THE PEOPLE FROMTHE 
CITY OF ATLANTIS UNDER THE SEA AND YOU 
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ARE NOW A PRISONER OF THESE PEOPLE." 
90 FOR Z=1 TO S@@@:IF INKEYS=""" THEN NEX 
T Z ELSE Z=S@@@:NEXT Z 
19 CLS:PRINT" YOU HAVE TQ DEPEND ON GIV 


ING THE COMPUTER INSTRUCTIONS SO TH 
AT YOU MAY ESCAPE." 
119 FOR Z=1 TO 50@@:1IF INKEYS="" THEN NE 


XT Z ELSE Z=S@@O:NEXT Z 

12@ CLS:PRINT“ENTER A COMMAND OR AN OBJE 

CT AS THE COMPUTER PROMPTS YOU - YOU WI 

LL FIND THAT, FOR EACH WORD YOU WILL E 

NTER THE LEAST NUMBER OF LETTERS THAT WI 

LL DETERMINE ONE WORD FROM ANOTHER." 
120 FOR Z=1 TO Se@@:IF INKEYS=""" THEN NE 
XT Z ELSE Z=S@@0:NEXT Z 

14@ CLS:PRINT"IF ONE COMBINATION OF COMM 
AND & OBJECT DOES NOT WORK THEN TRY AN 

QTHER. " 

150 FOR Z=1 TO Se@@:IF INKEYS=""" THEN NE 
XT Z ELSE Z=S00@:NEXT Z 

160 CLS: A=1:W=0: V=a: U=0 

17@ W=W+1:RESTORE:FOR T=1 TQ 100@:1F INK 

EYS<>"" THEN T=1@@@:CLS:NEXT T ELSE NEXT 
T:CLS 

18@ IF E(6)=-2 AND U<& THEN U=U+1 

19@ IF (A=6 OR A=11) AND E(11)=O0 THEN PR 


INT"THE gorilla IS HUNGRY AGAIN...":GOTO 
72@ 

20@ IF W>24 AND E(1)<>-2 THEN PRINT" THE 

POWER REACTOR HAS BECOME UNSTABLE AND 


HAS BLOWN UP!":GOTO 720 
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219 IF A=21 AND E(12)=A AND E(11)=0 THEN 
E(t11)=-2:6¢012)=-2:FRINT" THE gorilla HAS 
RUN AFTER THE sea monster." 

220 IF E€(2@)=A AND E(24)=-1 THEN PRINT"T 

HE FLOWER MAKES THE ora SLEEPY":E£(2@)=-2 

2E(21)=A 

22@ IF £€(25)=A AND £(26)=0@ THEN E(26)=-2 

3E (27) =@: PRINT" THE CRAZY lecturer TAKES 

THE BROOKLET AND GIVES YOU SEEDS." 

24@ FOR B=1 TO A:READ AS: NEXT B:sPRINT @& 

2,AS 

252 PRINT"EXITS:— <:"s:1IF ACAY<>@ THEN PR 
INT"NORTH: "; 

26@ IF BCAD<>@ THEN PRINT"“SOUTH: "; 

27@ IF C(AI<2@ THEN PRINT"EAST: “3 

280 IF D(AI<>@ THEN PRINT"WEST: "3 

290 PRINT: PRINT"OQBJECTS: —"s 

2@Q@ H=@:FOR C=1 TO 2Z@:IF E(C)<>A THEN NE 

XT C ELSE PRINT": "3H#(C)sNEXT C 

310 PRINT" £€ ------—--------—--—-------- 
-j" 

320 PRINT: PRINT" INVENTORY: —"5 

330 F=@:FOR C=1 TO 2@:IF E(C)<>@ AND E(C 
¥<>-1 OR F=4& THEN NEXT C ELSE PRINT": "3H 

$(C) NEXT C 

340 PRINT" €---~----—---~------ 

-j" 

35@ REM 

26@ PRINT"COMMAND"; : DS=""sM=0: N=Q 

=7@ IF F>i AND A=26 THEN PRINT"THE ROPE 

LADDER HAS BROKEN...":GOTO 720 
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3B@ IF A=16 AND E(17)<>6 THEN PRINT" THE 

WARRIOR CATCHES YOU AS YOU TRY AND ESCA 

PE OUT OF THE CITY.":GOTO 720 

39@ IF A=16 THEN PRINT"THE WARRIOR SEES 

YOUR CHAINS, AND THINKS YOU WILL NOT G 

QO FAR." 

40@ IF E(18)=0 THEN PRINT"SOME ATLANTANS 
HEAR YOU OVER THEIR RADIOS AND INVES 

TIGATE..."sGOTO 720 

410 IF A=21 AND E(12)=A THEN PRINT" THE s 
ea monster HAS CAUGHT YOW.":GOTO 720 

422 INPUT D#:DD$=LEFTS(D%,3):FOR C=1 TO 
29: IF LEFT#(DD$,1)=BS(C) OR LEFTS (DDS, 2) 
=B$(C) OR DDS=BS(C) THEN M=C=2C=29: NEXT C 
:GOTQ 448 

42@ NEXT C:GOTO 450 

440 IF M>@ AND MS OR M=24 OR M=2EB OR M= 
29 THEN GOTO 490 ELSE GOTO 470 

45® PRINT"I’M SORRY, BUT I DO NOT KNOW H 
OWTO "3D$;" SOMETHING.":GOTO 170 

460 PRINT"I’M SORRY, BUT I DQ NOT KNOW 
WHAT A "3D$:s" IS.":sGOTO 179 

479 PRINT"OQBRJECT? "s2D$=""sN=0 

480 INPUT ES: EES=LEFTS(E%,2):FOQR C=1 TO 
3O:1IF EES=G$(C) OR LEFTS(EE%,1)=G%(C) OR 
LEFTS (EES. 2)=6$(C) THEN N=C:C=20:NEXT C 
ELSE NEXT C49@ PRINT C#(M};32IF M>® AND 
M<S OR M=24 OR M=28 OR M=29 THEN 5S@@ ELS 
E PRINT" "3H (N> 

5@@ PRINT 

519 ON M GOTO 59@,590,599,590, 748, 749,74 
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%.79O, 798,792, B49, 920, 85, B50, 852, 960.96 

@,969, 195, 1100, 1120, 117, 1210, 1240, 1250 
+1310, 125@ 

52@ PRINT"I CANNOT DO THAT":GOTO 176 

520 PRINT"I AM ALREADY CARRYING IT":GOTO 
17@ 

54@ PRINT"I AM CARRYING TOO MUCH":GOTO 1 

70 

5509 PRINT"O.K.":GOTO 170 

560 PRINT"I DO NOT SEE IT HERE":GOTO 17@ 

579 PRINT"I AM NOT CARRYING IT":GOTO 17@ 

580 PRINT"I DQ NOT SEE A PLACE TO PUT IT 
":GOTO 170 

590 IF (M¢>% AND A=1) THEN V=1:PRINT" THE 
atlantan LAUGHS AT YOU WALKING INT 

O THE WALL.":GOTO 17@ 

6@@ IF M== AND A=1 AND V=@ THEN PRINT"TH 

— atlantan WILL NOT LET YOU PASS. ":GOT 

0 178 

610 IF V=1 THEN V=@:PRINT"THE atlantan I 

S DISTRACTED AND DOES NOT SEE YOU LEAVE 


62@ IF £(7)=A THEN PRINT"THE gladiator W 
ILL NOT LET YOU PASS.":GOTO 170 

62@ IF E(8)=A AND M=2 THEN PRINT"YOU CAN 
NOT WALK THROUGH THE OLD DOOR.":GOTO 178 
64@ IF £(2@)=A AND M=2 THEN PRINT"THE cr 
g IS IN THE WAY.":GOTO 176 

65@ IF £(29)=A AND M=t THEN PRINT"THE WA 
LL IS TOO SOLID FOR YOU TOGO THROUGH IT. 
":GOTO 179 
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66@ DV=A 

67@ IF M=1 THEN A=A+A (A) 

68@ IF M=2 THEN A=A+B(A) 

590 IF M== THEN A=A+C (A) 

7@@ IF M=4 THEN A=A+D (A) 

71@ IF A=DV THEN PRINT"NO EXIT! ":sGOTG 17 
® ELSE GOTO 1728 

72@ PRINT: PRINT:PRINT"PRESS SPACE TQ STA 
RT AGAIN" 

7=@ IF INKEY#<>" " THEN 72@ ELSE GOTO 5@ 
742 IF N<>1 AND N<>2 AND N<>9 AND N<31O 
AND N<>1i5 AND N“>17 AND N<>18 AND N<>e2t 
AND N<>23 AND N<>24 AND (N<26 OR N>2Z) AN 
D N<>2@ THEN S20 

75@ IF E(N)=@ OR E(N)=-1 THEN Sza 

76@ IF F=6 THEN 540 

77 IF E(N)<3A THEN 5S4@ 

788 E(N)=@:GOTO 55a 

790 IF ECN<?@ AND E(N)<>-1 OR N=2ZZ AND 
E(24)=-1 AND H>4 THEN 570 

86 IF N=11 THEN 5206 

816 IF H=6 THEN 58a 

820 IF N=23 AND E(24)=-1 THEN E(24)=A 
820 E(N)=A:GOTO 55@ 

B4@ PRINT"YOU DO NOT HAVE ENOUGH ENERGY 
TODO THAT IN THE THIN ATMOSPHERE.": GOTO 
17® 

859 IF EC(ND<>A AND E(N)<>@ AND E(N)<>-1 
THEN S6@ ELSE IF N<>6 AND N<>LZ AND NZ>1 
6 AND N<>22 AND N4>22 THEN PRINT"I SEE N 
QTHING WORTH TAKING NOTE OF.":GOTO 174 


112 


86@ IF N=22 THEN PRINT"THE GROUND IS PRE 

PARED FOR THE FLANTING OF SOME SEEDS. ": 

GOTO 1706 

87@ IF N=22 THEN PRINT"THERE IS A BUTTON 
HOLE IN THE JACKET.":GOTO 178 

B88@ IF N=16 THEN PRINT"TO OPEN THE AIR L 

OCK, IT MUST BERAISED.":GOTO 1706 

B9@ IF N=12 AND E(N)<>A THEN 566 ELSE IF 
N=12 THEN PRINT"SOME FISH ARE SWIMMING 

ABOUT ON THE OTHER SIDE OF IT.":GOTO 1790 

90@ IF EC(N?<>?A THEN PRINT"I DO NOT SEE H 
IM HERE.":GOTO 170 

91@ ©£(6)=—-2:PRINT"HE GIVES YOU SOMETHING 
TO HELP YOU COPE WITH THE ATMOSPHERE." 
:GOTO 1790 

920 IF N<>7 THEN S20 

920 IF E(N)< TA THEN 900 

949 IF U=0 OR U=6 THEN PRINT" YOU WERE NO 
MATCH FOR THE gladiator.":GOTO 72 
9 

95@ E(7)=-2:PRINT"YOU HAD JUST ENQUGH EN 
ERGY TC DEFEAT THE gladiator.":GOTC 17 
2 

960 IF N<>4 AND N¢<>8 OR H=6 THEN 520 

97@ IF ECNI<SA THEN 540 

989 IF N=4 AND M<>17 THEN 1018 

990 IF U=46 THEN PRINT"YOU DO NOT HAVE EN 
QUGH ENERGY.":GOTO 176 

1906 E(N)=-2:PRINT"YOU HAVE OPENED THE © 
LD DCOR.":GOTO 179 

1@1@ IF £(9)<>@ THEN FPRINT"I CANNOT DO T 
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HAT...YET.":GOTO 176 
1@2@ PRINT"THE LOCKER OPENS..-.AND CLOSES 


- 


103@ IF E(2)=-2 THEN E(2)=AzPRINT"SOME D 
IVING GEAR FELL OUT." 

1@4@ GOTO 179 

1@5@ IF N<>2 AND N<>23 AND N<>24 THEN S2 

7] 

166@ IF E(N)=—-1 THEN PRINT"I AM ALREADY 

WEARING IT.":GOTO 1790 

107@ IF E(N)<>@ THEN 57@ ELSE IF N=24 AN 

D E(22)<>-1 THEN 58o 

10@8@ IF N=24 THEN PRINT"THE FLOWER GIVES 
OFF A PUNGENT ODOUR, BUT DOES NOT HARM 
YOU. "sE(N)=-1:GOTO 179 

109@ E(N)=-1:GNTO 55a 

119@ IF N<>1® THEN S20 

1110 IF E(N)<>® THEN 570 

112@ E(N)=-2:PRINT"Q.K...BUT IT WAS MEAN 

T TQ BE FORSOME ANIMALS.":GNTO 170 

1120 IF N<>it THEN 520 

1146 IF E(N)<>A THEN 5450 

115@ IF £(1@)<>@ THEN PRINT"I HAVE NOTHT 

NG TC FEED IT WITH.":GOTO 1790 

1160 £(1@)=-2:E(11)=@:PRINT"THE gorilla 


FOLLOWS YOU IN HOFE OF GETTING MORE FOCD 
.":GOTC 174 


117@ IF N¢<>1 THEN 52a 
118@ IF E(N)<>@ THEN 57@ 


1199 IF AC>13 THEN PRINT" SEE NO PLACE 
TO INSERT IT.":GOTO 170 
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120@ £(1)=-2:sPRINT"THE ADDITION OF MORE 

FUEL TO THEREACTOR HAS STABILISED IT.": 

OTO 1790 

121@ IF N<>14 THEN 520 

122@ IF EC(N)<>A THEN 569 

123@ IF A=26 AND E(15)=@ THEN A=25:E (N= 

A:GOTO S5@ ELSE IF A=26 THEN A=27:E(N)=A 
sGOTO S55@ ELSE IF A=25 THEN A=26:E (N)=A: 

GOTO SS@ ELSE IF A=27 THEN A=26:E(N)=AzG 

QOTO S5e@ 

1240 PRINT @ 4506,"ARE YOU SURE? (Y/N)"5: 
IF INKEYS="Y" THEN 726 ELSE IF @$="N" TH 

EN 170 ELSE 1240 

125@ IF N<>16 THEN 526 

1266 IF A<>24 THEN 560 

127@ IF £(15)<>@ THEN PRINT"I HAVE NOTHI 

NG WITH WHICH I CAN OPERATE THE RAISING 

MECHANISM. ":GOTO 17@ 

1286 IF E(2)<>-1 THEN PRINT"YQU HAVE DRO 

WNED IN THE WATER THAT HAS FLOODED THE 
AIR LOCK.":GOTO 720 

129@ Y=15@-W:IF Y>X THEN X=Y 

120@ PRINT" YOU HAVE MANAGED TO REACH THE 

SURFACE AND YOUR DIVING SHIP.":sPRINT 

@ 450, "SCORE=";Y¥;" BEST SCORE=";X:GQOTO 
720 

121@ IF N¢>27 THEN 520 

122@ IF E(N)<>@ THEN PRINT"I AM NOT CARR 
YING THEM.":GOTOQ 172 

122@ IF A<>4 OR H=6 THEN PRINT"I SEE NO 
PLACE TO PLANT THEM.":GONTOQ 170 
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1240 E(N) =-2:E(28)=A:PRINT"THE SEEDS GRO 
W QUICKLY AND FORM TALL POLE VAULT SHAPE 
D PLANTS.":GOTN 170 

135@ IF N<>29 THEN 520 

126@ IF A<>7 THEN 54@ 

1270 IF E(28)<>@ THEN PRINT"I HAVE NOTHI 
NG TQ VAULT WITH.":GOTO 170 

1286 A=1@:PRINT"YOQU MANAGE TO VAULT THE 
WALL.":GOTO 174 

1296 DATA DETENTION AREA, INDOCTRINATION 
AREA, SPORTS AREA.BARREN GROUND, BLOCKED E& 
XIT FROM ARENA, ADVANCED PART OF CITY,FRI 
MITIVE PART OF CITY,QLD PART OF CITY,GAR 
DEN WALKWAY.FOOD GROWING AREA,CENTRAL DO 
ME, ATLANTAN LECTURE THEATRE 

14@@ DATA NUCLEAR FUSION POWER REACTOR, W 
ATER HYDROLYSIS AREA, ATLANTAN RADIN STAT 
ION,BORDER OF CITY,PASSAGE OUT OF KINGDO 
M.SLAVE LABOUR AREA, ANIMAL SPECIMEN CENT 
RE,UNDERWATER OBSERVATION POINT, FORBIDDE 
N ZONE,EQUIPMENT STORAGE AREA 

1419 DATA MURKY LAGOON, AIR LOCK,STEEP IN 
CLINE,CLIFF FACE,TOF OF CLIFF 

142@ DATA 9,1,1,0,0, 9, Fy Sq Dy Fy Oy Oy Gy Ga— 
3,5, @,%,0,9,%,-5,2,0,0,0,0 

14ZO DATA @,%,-1.-1,3.8,9,9,0,-2, -2,2% 
394 O, 5, 0,9,0, -5,9,9,9,-2,8,0 

144@ DATA 1,9, 2,0,%,—2%, -—2,%,—%. 0.0, —3 545 


Pie 


4, 44 —4,.8, 55 On Sy 25 2590 9, 9M 
1450 DATA @,-1, 25 55-25 5s Fn Bn 4504 ese 
5.0, -4,0,-4,0,0,0,-2,-2,9.9%.@ 
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146@ DATA N,SQ,5AS, WES.G6, TA, PI,D, LE. THK 
+FI,EX, FR, SE, 9, PU,U. WEA, EAT, FE, I,0,0.R,P 

LV 

147 DATA NORTH, SOUTH, EAST, WEST. GET, TAKE 
FICK UP, DROP, LEAVE, THROW. KILL, FIGHT. EXA 

MINE, FRISK, SEARCH, OPEN, FUSH, UNLOCK, WEAR, 

EAT, FEED, INSERT, CLIMB, QUIT. RAISE, PLANT, V 

AULT 

1480 DATAHY,D,FU,LO,4T. SC, GL,0L,MA.FR,GO 
.SEA,T. RHA, AI, £,M1,WAR, OR, SL,GR,J.FL.LE 
.B, SEE. F,. WAL. ME 

149@ DATA HYDROGEN, DIVING GEAR,FUEL SLOT 
, LOCKER, ATLANTAN, SCIENTIST, GLADIATOR, OLD 
DOOR.MASTER KEY, FRUIT, GORILLA.SEA MONST 
ER, THICK GLASS, ROPE LADDER.HANDLE, AIR LO 
CK, CHAINS, MICROPHONE, WARRIOR, ORG, SLEEPY 
ORG, GROUND, JACKET, FLOWER, LECTURER 

15@@ DATA BOOKLET,SEEDS,POLE VAULT, WALL, 
METAL ROD 

151@ DATA 14,-2,13,22,1.243,5,8, 19,19, 21 
$20, 25,27, 24,19, 15, 16017 5-25 4G PelFe lly 
-2,-2.7,22 

152@ REME**KARRAYS*Ktk 

1520 DIM L$(27):FOR T=1 TQ 27:READ L#(T) 
:NEXT T 

154@ DIM A(27),B(27),C(27),D(27) 

155@ FOR T=1 TO 27:READ A(T) :NEXT:FOR T= 
1 TO 27:READ R(T) :NEXT 

1546@ FOR T=1 TO 27:READ C(T):NEXT:FOR T= 
1 TO 27:READ D(T):NEXT 

1570 DIM BS(27):FOR T=1 TQ 27:READ BS(T) 
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sNEXT T 

158@ DIM C#(27):FOR T=1 TO 27:READ C#(T) 
sNEXT 

159@ DIM G#(30):FOR T=1 TO F@:READ GS(T) 
s NEXT 

16@60 DIM H#$(3@):FNR T=1 TQ F@:READ HS(T?) 
= NEXT 

161@ DIM E(2@)sFOR B=1 TO 26: READ ECB)=N 
EXT B 

1620 RETURN 

163@ CLS F:FRINT @ 108,"CITY OF"; 

164@ PRINT @ 224,""; 


165@ PRINT"111 111 1 1111 21 111 111 1 
11" 


1666 PRINT"1 1 1 1 11 111 #1 1 #1 


167@ PRINT"111 1 #1 V1164i11 21 1 1 
yu" 

1686 PRINT"1 1 1 1 11111 #21 1 

1" 

169@ PRINT"1] 1 2 21212121221 +4 #22121 
11" 


170@ PLAY"OZLECEDFGABRACP 1" 
171@ RETURN 
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CHAPTER 6 


OTHER GAMES FOR 
YOUR COMPUTER 


You may ask why | have included other games in an adventure 
book? Well, there are several reasons. Firstly, an introduction 
into games writing can show how the computer makes 
decisions and how to ‘weight’ the game to make it more enter- 
taining. A few of the techniques used in writing these games 
can be transferred and used in writing good adventures. 
Secondly, and perhaps the main reason for their inclusion is 
that they are really good fun and entertaining to play. 


| have kept the comments on each program reasonably brief, 
with the instructions explained and some of the techniques 
highlighted. 


ALIEN SWARM 


This is the one moving graphics game in the book. The game 
is set in high resolution graphics with the PUT command 
moving the alien ships around the screen. The instructions are 
displayed first and when these are fully understood, the game 
gets under way. | really do not have to tell you any more than 
that as the game format should be obvious to you once you 
have read the instructions and have had a practice game. 


The program is divided into neat blocks, almost modules, of 
BASIC code. These have all been labelled with REM state- 
ments for extra clarity. Each block is explained below: 


(1) The initial title and the question asking you if you want to 
see the instructions. 
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(2) 


(3) 


Initialisation. All the program's variables are given their 
starting values, and the graphics needed in the game are 
defined and stored in GET arrays. 

Action. This is the real core of the program. The various 
ships and bases are moved, the keyboard is checked fora 
key press, and if it is the fire button, then the program 
jumps to a separate ‘fire’ routine. The keyboard is 
scanned using PEEKs which give a faster response and 
also allow for key repeats. 


(4) Laser Fire. This is the routine that launches the missile, 


allows it to move while moving all the other pieces, and 
checks for a ‘hit ship’. If a ship is hit then the score is 
increased, certain musical notes are played and the game 
goes back to the ‘action’ section. 


(5) The end game. As its title suggests, this routine finishes 


the game off by printing the score and prompting the 
player for another game. 


(6) Instructions. This routine provides the uninitiated player 


with some brief rules, etc, on the game itself. 


This modular approach to games writing is a good way of 
constructing a well-structured, easy-to-understand program. 
It is not possible in all games to use this approach effectively, 
but in a game such as the one under discussion you can see 
that the program is improved as a result. You will also find it 


ea 


sier to modify in this format. 


10 REMKKX*KXALTEN SWARMEKXkKX 

2@ CLS:FRINT" 6) (2 0) 0) COALTEN SWARM() (0) (> 
ao" 

25 PRINTSPRINTIFRINTs INFUT" INSTRUCT IONS" 
sAS: IF AS<C>"N" THEN GSOSUB 646@ 

4@ REMKKEXKKINITIALISEXKAKKK 

3@ A=RND (180) +25: B=RND(190)+40 

$0 X=120:Y=170 

7@ M=1:SC=@ 

8@ DIM B(20,12),0(3@,12) 
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9@ DIM A(Z5, 20) .K(25, 20) 

1@@ “MODE 2,1:°CLS:SCREEN 1,1 

12@ LINE (12@,18@)~—(148, 180) ,PSET 

14@ CIRCLE (S@,50),15,1,.0.2 

15@ CIRCLE (S@,50) ,7 

16@ SAINT (42%, 50),1,1:PAINT(S9,5@),1,1 

172 GET (EZ, 40)-(67.60).A.G 

18@ DRAW" EM120, 180; U2R4U1R1U1R1UIRBU4R1D 

4RED1R1D1R1D1iR4D2" 

199 SAINT CIZ7.177} .4,1 

200 GET‘120,17@)-(150,181),B,6 
5 LINE(@, 185) -(255, 195) ,PSET 

DLO REM KK KKACT LONKKEREX 
@ PUT (ZZ, 40)-(67,60) 4K, PSET 

DQ SUT OXY) —(X430, Y+11). 8. PSET 

240 FUT (A,B) -(A+tZ4, B+2@) ,A, FSET 

TSO PUT (E,D)—(E+34,D+20) ,A, FSET 

240 FPLAY"L10@01DBCG" 

27@ PUT (X,Y) -(X430, Yt11),L. FSET 

280 PUT (A,B) —-(At%4, B+20) .K, PSET 

29@ PUTED) —- (E424, D+2@) . 4K, FSET 

ZOO IF PEEK (Z42)=222 AND X>Z@ THEN X=X-3 


%1® IF PEEK (344)=222 AND X<22S5 THEN X=X+ 


220 A=A+RND (50) -RND(S@):1F ARBI@ OR ACLS 
THEN A=129 
222 B=B+RND (4@)-RND(3@):IF B>15@ OR B<4O 
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THEN B=7@ 

ZZ@ E=RND (180) +25: D=RND (10@)4+40 
Z4@ IF PEEK (345)=222 THEN GOSUP 2 
35@ GOTO Zio 


fy 
oS 


B6Q@ REMEXKKKLASER FIREXKXKX 

B7@ VT (X.Y) -(X470, Y+11) .B. PSET 
ZA@ PUT (A,B) -(AtE4, +20) A, FSET 
29 PUT(E.D)—(E+34, D+20) .A, FSET 
40@ FOR ©=179 TO 11 STEP-2 

41 IF C>B AND CéB+2@ AND X+152A AND X+1 
5<A+34 THEN SOSUB 52a 

420 GOTO 430 

4Z@ LINE (X+15.¥)-(X+15,Y-40) . PSET 
44® NEXT C 

45@ LINE (X+15,Y)—(X+15, Y-6@) , PRESET 
A46O PUT (X,Y) - (X40, Y411) .B PSET 
A7®@ PUT (A,B) —(At34, B+20) .K, PSET 
498@ SUTCE,D)- (E434, D+20) .K FSET 
490 “LAY"L2SSO2CBCBCRCBCB" 

S@Q M=M+1:IF M=12 THEN See 

51 RETURN 

S2e@ PUT CE. D)-(E+32, D+20) A, PSET 
SZz@Q PUT (A,B) —(AtS2, B+20) ,A.PSET 
S40 PLAY"L2S5016FEDCC" 

55@ SC=SC+1ioe 

S4® RETURN 

S7@ REMAXKXKXEND OF GAMEXkx% kK 
See CLS @ 
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S9@ PRINT 
600 PRINT 
51@ PRINT 
620 FRINT 


ia 


164,"END OF SAME"; 

156, "HX KAKKKAKK RAK AK KKKE" 

198, "*xYOU SCORED";SC; "x": 

DEO, "EKKKKAKKKK KK KAKA EKKK": 

294,"FRESS 9 FOR RE-START"S; 

640 IF INKEYS="Q" THEN RUN ELSE 648 

66@ REMKXKXKX INSTRUCT [LONSEXKE KKK 

67@ CLS:FOR T=1 TO 15:PRINT: NEXT 

$86 FPRINT"THE ALIEN SHIFS,IN FAIRS, SWOO 

P AROUND THE SCREEN. YCU MUST STUNTHEN W 

ITH YOUR LASER BASE WHICH UNFORTUNATELY 

1S THE SHORT RANGEMODEL. YOU HAVE 12 FIL 

u LASERS. arrows TO MOVE LEFT AND RIGHT 
AND TO FIRE, FRESS THE spacebar" 

69@ FOR T=1 TO B:FPRINT: FLAY"V4L4@03CEFDB 

ADBAGFEDC": NEXT 

708 FOR T=1 TO 200@:NEXT T 

750 RETURN 


fal (at 


tal 


620 PRINT 


a 


SOLITAIRE 


This classic game, at one time played with small pebbles in 
ancient Greece, is given an up-to-date touch in this com- 
puterised version. You must jump over one peg with another, 
either horizontally or vertically, and the peg that has been 
jumped over is removed from the board. The object of the 
game using this movement is to clear the board of pegs 
except for one left in the middle. In this game you move by 
entering the co-ordinates of the peg you wish to move 
followed by the co-ordinates of the position you wish to move 
the peg to. The computer will reject any illegal moves. You 
enter the side number and then the top number, eg. if you wish 
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to move peg ‘6’ (side co-ordinate), ‘4’ (top co-ordinate), to 
position ‘4’ (side co-ordinate), ‘4’ (top co-ordinate), you 
would first enter ‘64’ followed by ‘44’. 


If you succeed in completing the puzzle, the computer will tell 
you how many moves you took. If you are not so fortunate, the 
computer will display the number of pegs still left. 


If, after anumber of attempts you still cannot succeed, then try 
the solution below. Many thanks to George Furlonger of 
Fareham for his solution. 


Solution: 

46 - 44, 65-45, 57-55, 37-57 45-65, 
75-55, 73-75, 68-65, 54-56 57-55, 
25-45, 55-35, 75-55, 34-54 36-34, 
43 -63, 51-53, 31-51, 32-52 63-43, 
51-58, 48-63, 55-53, 63-43 34-32, 
13-33, 15-13, 43-23, 13-33 32-34, 
24 - 44. 


@ REMKXXXKKXSOLITAREXKKKKKX 

20 GOSUB 400 

%6@ GOSUB 250 

4® REMAKXKAMOVE KE KKK 

S® PRINT"WHICH FEG TO MOVE": 

6® INPUT A 

7@ IF A=99 THEN 240 

8@ IF A<11 OR A>77 THEN 35a 

90 IF ACAY<>79 THEN S® 

10@ PRINT:PRINT TAB(®) As" TO WHERE'S 
11@ INPUT B:PLAY"QNZ2ZL20@CDEFGAR" 
12@ IF B<il OR B>77 THEN 110 
120 IF A(B)<>E THEN 110 

14@ ACCA+E) /2)=EsA(A) =E: A(B)=79 
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MV=MV+1;CO=0 

FOR F=11 TO 75 

IF A(F)=79 THEN CO=CO+1 

NEXT © 

GOSUB 25a 

PRINT: FRINT" THERE ARE ";CO;" PEGS LE 


IF CO<>1 THEN 40 
IF §(44)=79 THEN PRINT: FRINT"YOU COM 


PLETED THE FUZZLE IN "“sPRINT"JUST "sMVUs" 
MOVES! "=: FLAY"LBO4CDEFGABOSCC": END 


248 


PRINT: PRINT" THE GAME IS OVER, AND YO 


U FAILED": PLAY"L401EDCC":END 


250 
26% 
270 
280 
290 
300 
210 
320 


TIA 


REMKXKXKXDISPLAYEKKKXKE 

CLS 

PRINT"ENTER SIDE CO-ORDINATE FIRST." 
PRINT TAB(8) "ENTER 99 TO CONCEDE" 
PRINT: PRINT" 12245 6 7" 
PRINT TABCS) 3 

FOR D=11 TC 75 

T=10% CINT(D/19) ) 

IF D-T=8 THEN D=D+2:PRINT 71/10: PRINT 


TAB(S):2GOTO 35a 


340 
358 
240 
270 
429 


PRINT CHRS(A(D))3" "3 

NEXT Dz: PRINT" 7" 
PRINT:PRINT"MOVES SO FAR: "3MV 
RETURN 
REMKXKX¥KXINITIALISEXEKKKXK 
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41@ CLS:DIM A(87):E=42 

42@ FOR D=11i TO 75 

4Z@ T=10% (INT(D/1®)) 

44@ IF D-T=8 THEN D=D+3 

47@ READ A(D) 

480 NEXT D 

490 MV=a 

S@ RETURN 

5i@ REMKXKXEXKDATA BLOCKY KXKK KKK 
520 DATA 22.32.79. 79279, S25 22 

SZQ DATA 22, 22.79.79.79, 52.22 
S4A®@ DATA 79.79.79. 79.796 795 79 
SSO DATA 79,79,79,424 79279479 
S6@ DATA 79,79. 795792794795 79 
57@ DATA 22. 
SB@ PATA 22, 


2.79579, 79. S22 Se 


FOUR BY FOUR 


A family favourite this, where you must attempt to get four of 
your counters in a row either horizontally, diagonally or 
vertically. Your pieces are represented by the ‘H’ characters 
and the computer’s pieces by the ‘C’ characters. The 
computer always allows you to go first and you move simply 
by entering the column you wish to slide a counter down. 


The computer plays very fast (replies are almost instant) and 
surprisingly well! The computer is weaker near the beginning 
of the game but the longer the game progresses, the stronger 
an opponent it gets. 


1@ REMAKXXKKFOUR BY FOURKKXX4XkKX 
20 GOSUB 19080 
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25 GOSUB 860:GOSUB 4680 
20 GOSUB 970:GOSUBR 866:GOSUB 4686 
40 GOSUB 110:GOTO 25 


110 
129 


REM*X*COMFPUTER MOVEXX* 
PRINT:PRINT"STAND BY FOR MY MOVE..." 
SOUND 180,1:B=1@ 

B=B+1 

IF AC(EQ=-9 THEN 180 

IF A(B)=C THEN X=C:GOTO 210 

IF ACE)=H THEN X=H:GOTO 210 

IF EX77 THEN 140 

GOTO 490 

REM**kCHANCE OF 4 IN A ROWEKX 

IF A(B+1)=X AND A(B+2)=X AND A(B+Z)= 


E AND AC(B+12)<>E THEN MOVE=B+2:G60TO 4658 


24% 


IF A(B-1)=X AND A(B-2)=X AND ACE-2)= 


E AND A(B+7)<>E THEN MOVE=B-3:GOTO 650 


Lon] — 
258 


IF A(B+1)=X AND A(B+2)=X AND A(B-1)= 


E AND A(B+9)<>E THEN MOVE=B-1:GOTO 650 


260 


IF A(B-1)=X AND A(B+2)=X AND A(B+1)= 


E AND A(B+11)¢>E THEN MOVE=B+1:GOTO 650 


2790 


IF A(E+i)=X AND A(B-1)=X AND A(B+2)= 


E AND A(B+12)<>€ THEN MOVE=EB+2:GOTO 650 


288 


IF ACB+L)=X AND A(B-1)=X AND ACB-2)= 


E AND A(B+8)<>E THEN MOVE=B-2:GOTO 658 


290 


IF AC(B-1)=X AND A(B-2)=X AND A(B+1)= 


E AND A(B+11)<>E THEN MOVE=8+1:GOTO 45@ 


310 


IF B>2@ THEN IF A(B-10)=X AND A(B-20 
127 


sehegats is 


caste Soe 


.=X AND ACB+1@)=E AND A(B+20)<>E THEN MO 
VE=B+1@:GOTO 650 

32@ IF A(B+11)=XK AND ACBE+22)=X AND ACE-1 
1).=E AND A(B-1)<>E THEN MOVE=B-11:GOTO 6 
S® 

240 IF A(B+9)=X AND ACB+18)=X AND ACE-9) 
=E AND A(B+1)<>E THEN MOVE=B-9:G0TO 6508 

360 REMKXKCHANCE OF 2 IN A ROWXK* 

388 IF ACER+1)=X. AND A(B+2)=E AND ACE+12) 
<>E THEN MOVE=B+2:GOTO 4650 

398 IF A(B+1)=X AND ACB-1)=E AND ACBR+9)¢ 
>E THEN MOVE=B-1:GOTO 650 

40@ IF A(B-1)=X AND ACB-2)=E AND A(B+8)< 
SE THEN MOVE=B-2:G0TQN 650 

420 IF A(B+1@)=X AND A(B-1@)=E AND A(B)< 
>E THEN MOVE=B-18@:GOTO 650 

440 IF A(B+9)=X AND A(B-9)=E AND A(B+1)< 
>E THEN MOVE=B-9:GOTO 6590 

450 IF Boil THEN IF A(B+11)=X AND AC(B-11 
2=E AND A(B-1)<>E THEN MOVE=B-11:GOTO 65 


440 GOTO 180 

49 FOR N=1 TO = 

5@@ M(N) =e 

510 NEXT N 

529 COUNT=8 

530 FOR B=1i1 TO 77 

54@ IF A(B)<>C AND A(B)<3H THEN 4600 


128 


SS@ IF A(B+1)=E AND A(B+11)<>£ THEN COUN 
T=COUNT+1:M (COUNT) =B+1 

S69 IF A(B-1)=E AND A(B+9)<>E THEN COUNT 
=COUNT+1:M (COUNT) =B-1 

57@ IF A(B-10)=€ AND A(B)<>E THEN COUNT= 
COUNT+1:M (COUNT) =B-10 

S80 IF AC(E-11)=E AND A(B-1)<>E THEN COUN 
T=COUNT+1:™ (COUNT) =B-11 

S99 IF A(B-9)=E AND A(B+1)<>E THEN COUNT 
=COUNT+1:M (COUNT) =B-9 

600 NEXT B 

61@ IF COUNT<>@ THEN 640 

620 PRINT: PRINT"I THINK IT*S A DRAW. ":SO 
UND 120,4:END 

649 MOVE=M(RND (COUNT) ) 

65@ A(MOVE) =C 

669 RETURN 

670 REMEXXKWIN CHECK# KX 

689 X=H 

709 B=10 

7i@ B=B+i:1F A(E)<>X THEN 770 

720 IF A(B+1)=X AND A(B+2}=X AND A(B+Z)= 
X THEN 890 

749 IF B>=® THEN IF A(B-1@)=X AND A(B-20 
.=X AND A(B-ZO)=X THEN 8a® 

75@ IF BYEZ THEN IF A(B-11)=X AND A(B-22 
=X AND A(B-3Z)=X THEN 8e@ 

75 IF B>27 THEN IF A(B-9)=X AND A(B-18) 
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=X AND A(B-27)=X THEN 8a 

77@ IF B77 THEN 710 

780 IF X=H THEN X=C:GOTO 7@e@ 

79@ RETURN 

20 REMKXKWIN FOUNDKX* 

81@ PRINT: FRINT 

E2@ IF X=H THEN PRINT"YOU"VE BEATEN ME, 
HUMAN!" 

92@ IF X=C THEN PRINT"I’VE DEFEATED YOU 
HUMAN ! " 

825 SOUND 20@,6:END 

250 REMKXXPRINT BOARDKX* 

B6@ CLS:PRINT"X*4K**KKFOUR BY FOUR KKK 
*KEKK' SPRINT 

87@ FOR K=1@ TOC 7@ STEP 10 

29@ PRINT:PRINT TABR(S)s 

90@ FOR J=1 TO 7 

91@ PRINT CHRS(A(K4+I)25" "5 

92@ NEXT J:NEXT K 

O25 PRINT:SRINT TAB(S) "1 2245 5 7":PR 
INT 

940 RETURN 

97@ REMKKKHUMAN MOVEXKx 

990 PRINT" YOUR MOVE..." 

190@ PRINT"WHICH COLUMN DO YOU WISH TO" 
1919 INFUT"MOVE INTO ":J 

1020 Z= 


1920 Z=Z+10 
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1@4@ IF A(Z+1@)=E THEN 1029 
195@ IF A(Z)=E THEN A(Z)=Hs RETURN 

196 PRINT"YOU CAN*T MOVE THERE":SOUND = 
64 

1®7@ GCTO 1906 

1@B@ REMEX*INITIALISEX#kK 

119@ CLS 

111@ DIM A(1O9) ,M(3O),P (4) 

114@ E=ASC(".") :H=ASC("H") = C=ASC ("CO") 
116@ FOR B=1 TO 109 

1170 A(E)=E 

11980 D=B-1@xINT(B/10) 

119 IF D=@ OR D>7 OR B<1i OR B>77 THEN 
A(B)=-9 

120 NEXT PB 

121@ RETURN 


MANAGING DIRECTOR 


In this game, you are (surprise, surprise) the Managing 
Director of a large company. You must attempt to keep the 
factory running until you manage to make 10000 dollars (this 
counts capital and stocks together). You have a lot of 
problems though. First, you have to deal with the far from 
friendly unions who won't always let you get rid of the people 
you want to and insist on pay rises which you have to follow. 
On top of that, there are workers who hardly ever meet the 
production targets you set, raw material suppliers who enjoy 
putting their prices up and the consumer market who resist 
price rises quite strongly. 


After all that, you may feel that the whole world is against you. 
Do not despair, a few attempts of this simulation and you will 
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get better and better at looking after your factory. While this 
can hardly be called a serious simulation, it does show simple 
business ideas in operation. You will learn, after a few frustrat- 
ing attempts, how to manipulate the various resources 
available to you. 


The program is quite along one but you can see from playing 


it aco 


uple of times, how much work it has to perform. The 


random number generator is used frequently to give more 
variation to the game; however, where necessary, | have 
‘weighted’ the outcome to a particular problem to make the 
program more enjoyable. 


10 
2@ 
30 


9@ 


REMXXXXXMANAGING DIRECTORXKXKEX 
GOSUB 1679 

WE=WE+1 

GOSUB 926 

GOSUB 12008 

GOSUER 930 

GOSUB 11290 

GOSUB 920 

GOSUB 730 


10® GOSUB 149 

110 CA=CA-WAXWO-RC 

129 GOTO 2a 

149 REMKXKXKPROBLEMSE&KXKX 

15®@ CLS: IF RND(@)<.45 THEN 260 


179 
194 
200 
210 


A=RND (7) sFRINTS PRINT 

PRINT" THE UNIONS ARE DEMANDING A” 
PRINT"PAY RISE OF"SAs"%" 

WA=INT (1@0% (WA+WAKA/19@) ) /190 


220 GOSUB 1840 
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\ 
PRINT: FPRINT"PAY PER EMPLOYEE IS NOW 


228 
S's WA 
240 GOSUB 184@:CLS 


240 
278 


IF RND(@)<.81 THEN 410 
PRINT: PRINTSPRINT"A FIRE IN YOUR WAR 


EHOUSE HAS" 


288 
292 
200 
24a 


320 


PRINT"DESTROYED SOME STOCK. PLEASE" 
PRINT"STAND BY FOR A REPORT ON" 
PRINT"THE DAMAGE CAUSED....":GOSUB 1 


A=INT (RND(ST/2) :ST=ST-A 
PRINT: PRINT" THERE WERE": A: AS 
PRINT"DESTROYED. THEY WERE" 
PRINT"WORTH $"sAXSP: "RETAIL" 
GOSUB 184@:PRINT"STOCK IN HAND IS NO 


W's STs AS 


410 
420 
440 
450 


IF RND(@)>.2 THEN S60 

CLS:PRINT: PRINT 

PRINT" YOUR MAIN SUPPLIER HAS" 
PRINT" ANNOUNCED A PRICE RISE...":S0S 


UR 19408 


470 
480 
490 


a a a a 
rere 
o> 6 


p 
s 


A=INT (RND(14@xCO/7) ) /190 

IF A<.@1 THEN 478 

PRINT: PRINT" THE COST OF MAKING ";AS 
PRINT"HAS RISEN BY $";A; "EACH" 

GOSUB 184@:CO=CO+A 

PRINT: PRINT“IT NOW COSTS $";CO 
PRINT"TO MAKE EACH ONE...":GOSUB 184 
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IF RND(@)<.45 AND MA<SP THEN RETURN 
CLS: PRINT: PRINT 

PRINT"YOU HAVE A CHANCE TO RATSE" 
PRINT"YOUR PRICE. YOUR "SAS 
PRINT'"NOW SELL FOR $";:SF:GOSUB 194@ 


620 PRINT:PRINT"WHAT PERCENTAGE INCREASE 
WOULD" 
64 INPUT"LIKE TO IMPOSE":A 


690 


RE=RE+A: SP=INT (100% (SF+AXSP/100))/10 


fOSUR 1948 
PRINT: PRINT"THE ";AS;" NOW SELL":FRI 


NT"FOR $";SP:GSOSUB 1940 


708 
T2Q 
74a 
75a 
778 
780 
798 
80a 
8ra 
24a 
850 
870 
880 
8990 


RETURN 

REMKXXXKXKEKSALESKKKEKAKKKE 

PRINT: PRINT"YOUR TOTAL STOCK OF" 
PRINT AS;" TS"3ST:GOSUP 1846 
PRINT: PRINT"PLEASE STAND BY FOR A" 
PRINT"SALES REPORT..." 

R=INT (ST/ (RE/1@®) ) s A=RND (RD) 

IF A>ST THEN 7990 

PRINT:PRINT"THE TOTAL NUMBER OF "AS 
PRINT"SOLD WAS";A 

ST=ST—-A: ZA=AXSP 

PRINT: PRINT" THE INCOME FROM THAT" 
PRINT"SALE WAS #";ZA 

CA=INT (AXSP*X19@) /196+CA 
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9@@ GOSUB 1840:GOSUB 194@:RETURN 
920 REMKXKXEXCHAIRMAN’S REPORTHKAKKKE 
740 CLS: IF CAt+ST<1 THEN 1510 
960 TF CA+ST>9999 THEN FRINT"YOU" VE MADE 
$190,9®@ AND CAN NOW SETIRE...":GOTO 159 
co) 
97@ PRINT"SHOF FLOOR SEFORT, SIR,” 
980 PRINT" FOR WEEK"; WE 
990 PRINT:PRINT"CAPITAL IN HAND IS $"; IN 
T(LAXLA®D) /198 

14@® PRINT "RUNNING COSTS ARE $"3RC: "A W 
EEK" 

19160 PRINT" YOUR STORES HOLD";ST:AS 

1620 SRINT'WORTH S$"; INT (STASPK100) /190 
19Z@ FPRINT"THEY SELL FOR $";SP; "EACH" 
1940 FRINT"AND COST ¢";3;CO:; "EACH TO MAKE” 
1@5@ ERINT"YOUR WORKFORCE IS NOW" 
1660 PRINT WO:"STRONG, AND YOU ARE" 

@79 PRINT"PAYING THEM $";WA: "EACH, SO T 
HE" 

1@86 SRINT"WAGES BILL THIS WEEK IS $";WA 
*WO 

1685 PRINT:INFUT"PRESS ENTER TO CONTINUE 


4 
a 


“sDS:CLS 

1@9@ PRINT"ESACH PERSON CAN MAKE"; FR 
14110 PRINT AS:" A WEEK, A TOTAL" 

12@ PRINT"OQUTPUT OF"; PRAWO: PRINT: SOUND 
5@, 1:RETURN 
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113@ PRINTS INPUT"HOW MANY TO PRODUCE": MA 
114@ IF MA<i THEN RETURN 

115@ IF MAXCO>CA THEN PRINT"YOU DO NOT H 
AVE ENOUGH MONEY": GOTO 1124 

117@ IF MAD>PR*WO THEN PRINT"YOU DO NOT H 
AVE ENOUGH WORKERS'":GOTO 11230 

118@ PRINT"YES SIR, THE TARGET FOR WEEK" 
3 WE 

119@ PRINT"IS"sMA; AS: MA=INT (MA-RND (MA/S? 
») 

1200 GOSUB 184@:PRINT:PRINT"THE NUMBER 9 
F "3 AS 

1220 PRINT"ACTUALLY PRODUCED IN WEEK": WE 
124@ PRINT"WAS":MAs"..." 

1250 ST=ST+MA: CA=CA-COXMA 

127 GOSUB 18640: RETURN 

1Z@H REMAKKXEKKSTAFE KE KEKK 

1210 PRINT“HOW MANY PEOFLE DO YOU" 

1220 INFUT"WANT TO HIRE"; A:WO=WO+A 

1240 PRINTIFRINT" THE TOTAL WORKFORCE” 
1E5@ PRINT"IS NOW";WO: "STRONG": GOSUB 124 


1270 IF A>@ THEN RETURN 

1284 GOSUB 920 

129@ PRINT"HOW MANY PEOPLE DO YOU" 
1400 INPUT"WISH TO FIRE"SA 

1410 IF A=@ THEN GOSUB 1840:RETURN 
1426 IF ASWO THEN 1290 
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1430 A=RND(A):GOSUB 1846 

1450 PRINT: FRINT"THE UNIONS WILL ALLOW" 
1460 FRINT"YOU TC GET RID CF":A 

147@ WO=WO-A:GOCSUB 1840: RETURN 

1516 REMAX KX KBANKRUPTCY XXX 

1S20 CLS:FRINT TAB(14) "YOUR":FRINT 

1526 PRINT" goocg g00c no0c O88 CG 900 


Q 
154@ PRINT" 9 9 0 0 0 0 N00 g" 
155@ SRINT" 9000 9000 ON 0 00 900 


1566 PRINT’ 9O§F 71 OO 9 0 90 9" 
1570 PRINT" 9c00 9O CG NOo0C O OD 900 


1590 PRINT:ISRINT"ENTER 7¥* FOR ANOTHER S 

TINT" 

15@@ SRINT"AS MANAGING DIRECTOR." 

1440 IF INKEYS="Y" THEN RUN ELSE 1548 

1570 REMKXKXKXKINITIALTSEXKEKE 

169@ FOR Z=1 TO RND(S):READ AS:NEXT Z 

1720 CA=S0@+RND (50@>) : ST=190+RND (S00) 

1746 SP=10+RND() 

1750 MO=7+RND (5) 

1756 If COSSP THEN 175¢@ 

1779 WO=7+RND (1) :WA=12+RND (SP? 

179@ PR=S+RND (46) s 8C=10@+RND (20? 

18@0 WE=@: RE=1: RETURN 

1846 FOR Z=1 TO 7H@O@:NEXT Z:RETURN 
137 


1856 DATA KEYECARDS. WIDGETS, RACIOS. DISC 
DRIVES, BEER MATS, ENGINES. 'UMBRELLAS 
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CHAPTER 7 


SOUND AND GRAPHICS 
FOR YOUR OWN 
ADVENTURES 


As the title suggests, this chapter includes some ideas that 
you can use when writing your own adventures. These 
graphic and sound routines can liven up adrab adventure and 
give you ideas to create others. 


While many purists believe that an adventure should either be 
purely text or purely graphic, there are many people (I 
amongst them) who believe that an occasional graphic 
display can only heighten the enjoyment that a user receives 
from playing the game, providing two factors are noted. 
Firstly, the graphic displays should be used in locations that 
are not often visited - a player does not want to repeatedly 
come across the same display too often - and also there 
should not be too many of them about if the adventure is to be 
a primarily text one. Secondly, they should not take too long 
to generate; a high resolution picture of great complexity may 
look wonderful, but if it takes six or seven minutes to be drawn 
then the magic is lost. 


We will look at some graphic displays first. By simply using 
pattern displays occasionally, the game can be enlivened. The 
Dragon 32, though limited in some graphic aspects, does have 
a good range of easy-to-use graphic commands. With the use 
of simple routines, effective patterns can be generated such 
as the one on the next page. 
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10 REMXXX*xTIME WARP KK KX 

2@ PMODE Z,1:FCLS:SCREEN 1,0 

ZO C=RND (4) :X=RND (254) = Y=RND (192) 
25 COLOR €,c 

4@ LINE(128.94)-(X,¥).PSET 

5®@ GOTO za 


Line 20 sets up one of the high resolution screens; in fact, the 
four colour (red, green, blue and yellow), 128 by 192 screen. 
Line 30 chooses three random numbers; the first, ‘C’, acts as 
the colour of the line; the second is the horizontal position of 
the line; and the third is the vertical position of the line. Line 35 
changes the colour of the next line to be drawn. Line 4@ draws 
the line from the centre of the screen to the co-ordinates 
generated in line 30. This line creates the effect with all the 
lines starting from the centre and bursting out all over the 


screen. Line 50 takes the program back to line 30 to draw 
another line. 


Your computer also has a powerful CIRCLE command which 
is the basis of this next simple pattern. Why not try and adjust 
the parameters in this program and see if you can achieve 
some other surprising effects. 


1@ REMEXKXEKCTRCULAR MOTIONS X k4KXKK 
2O@ N=1:FMODE 4,1:°CLS:SCREEN 1 


4 
aa 


2@ V=L1O—(1A2kN) 


:TF Y>18@ THEN 8@ ELSE SOTO 48 
f:IF Nt THEN N= 
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This next pattern is an ever-changing one that can hold one’s 
attention for some considerable time. The pattern constantly 
evolves and it is fair enough to say that after a couple of 
minutes, the display becomes quite spectacular. When you 
consider the length of the program compared to the results 
you get on the screen, you begin to realise what an impressive 
little program this is. It is ideal for an adventure as it uses little 
memory and could be situated at the end of the game where, 
say, the adventurer is trapped forever. Anyway try it out. 

19 FEM*kkXxkETERNAL TRANSFORMAT IONX*%x 

260 PMODE 2,1:FPCLS:SCREEN 1,0 

260 FOR A=2 TO 7:FOR B=2 TO 6 

4@ FOR f= TO %:FOR D=98 TO 2 

5® COLOR D.C 

60 W=0: X=255: Y=: Z=191 

76 LINE(W,Y)—-(X,Z).,FSET.B 

83@ W=W+H: X=X-Bs Y=Y+A: Z=Z-A 

9@ IF W<255 AND Y<191 THEN 792 

10@ NEXT DsNEXT CzNEXT B:NEXT A 


119 GOTO 4e 


This next program generates my favourite pattern of the lot, 
and serves as a good illustration of the computer’s LINE 
command. Watch the triangles as they go bouncing around 
the screen. Why not add several lines to erase the previous 
triangle before it draws the next, to give a more animated 
display. 


190 REM*AX*xkxXTRAVELLING TRIANGLESXXXxXk 
20 PMODE 7,1:FCLS:SCREEN 1,0 

20 C=RND (4) s X=RND (254) s Y=RND (192) 

46 A=RND (254) : R=RND (192) 
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S@® COLOR C.C 

6® LINE (128, 96)-(X.Y).PSET 
7@ LINE (X,Y)-(A.B) .PSET 

8@ LINE (A,B)—(128.96) ,PSET 
°@ FOR T=1 TO S@:NEXT T 
16 GOTO za 


Let’s get onto something alittle less abstract now and start to 
design some graphic shapes on-screen which represent 
something a little more recognisable than our patterns have. 
In ‘The Dark Forest’ there are a number of locations depicted 
in high resolution. | have indicated where these occur in the 


program in chapter two, so have a look at them to supplement 
the ones given below. 


With the computer’s highest resolution being in either black/ 
white or black/green, the capability for creating good space 
scenes is excellent. Below are two such scenes using DRAW, 
PAINT, LINE, CIRCLE and PSET to complete the scene. Note 


how in both programs, PSET is used to randomly position 
‘stars’ on the background. 


1 REMAXX*XkLUNAR SCENE X*k* Xx 

26 FMODE 4,1:FCLS:SCREEN 1,1 

3 DRAW" BMO, 60; RSD4RED7RZDZRADZRZDERZDIR 
AD7RODER4DZ2RSD1R4DERSD2ZR4" 

4@ DRAW" BM21%, 127; U4RZU6R4UZRSUZROU1LRSU 
ARZU1 2RZU4R 1 U6REUSUSRZU12RZUL@RZULRLUZRE 
5@ CIRCLE (150,10) ,100,1,.5,9.15,0.5 

60 DRAW"BM145, 114: R4F8D12G64L12H4U1 2EBED2 
4BR2F4L12E6" 

7% DRAW" BM158, 124: F4D1@L1R2BLZZR2L1U1GE4 
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8a 
On 
21) 
108 


@ R 
20 


LINE (14@,124)-(155,120) , FSET. BF 
FOR T=1 TO 15@:PSET(RND(255) ,.RND (190) 
NEXT T 

GOTO 190 


EMKxXKXKXCRATERED PLANETKKKKX 
FMODE 4,1:FCLS:SCREEN 1,1 

CIRCLE (128, 19@),180,1,0.5 

CIRCLE (158,140) ,50,1,0.3 

CIRCLE (158, 15) ,2@,1,0.%,0.5,0 
CIRCLE (30,170) ,5@,1,0.% 

CIRCLE (20,180), 20.1,0.2 

CIRCLE (40, 4@) ,1@:CIRCLE (4,40) ,15,1,0 


PAINT (125,145),1,1:PAINT(1,175),1,1 
FOR S=1 TO 5S®@:A=RND(25@) : B=RND (100) 
PSET (A,B, 1):PAINT(4@,40),1,1 
NEXT 
GOTO 130 


Let's get more down to earth now and try our hand at 
recapturing the flavour of Egypt on the video display. This 
program, slightly longer than the rest, produces a believable 
picture of a typical desert scene together with pyramids. If you 


don't | 
righta 


ike my choice of colours or shape of pyramid, then go 
head and change them as much as you like. The whole 


idea of these graphics is to give you some starting points to 


create 
means 


your own displays (though you can use my own, by no 
, definitive versions as they are in your own adventures). 
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1@ REMAXXKXPYRAMIDS KA #KK 

2@ PMODE =.1:COLOR 4,2:PCLS:SCREEN 1,0 
Z®@ LINE (40, 120)-(7@, 6®) , PSET: LINE (4, 120 
}—(1@@,12@) ,.PSET 

4@ LINE (7@, 6@)—(110,90) , PSET:LINE (110,90 
}—(100, 120) , PSET 

S® PAINT(S@,72).2.4 

6@ LINE (7®,6@)-(10@,120),PSET:COLOR 2,2 
7@ LINE (@,9@)—(255.80) , FSET: PAINT (@,192) 
s2eh 

8@ CIRCLE (22@, 20), 15:PAINT (220,20) ,2,2 
2@ CIRCLE (19@,15@) ,25,3,0.5:PAINT (190,15 
@),2,% 

19@ DRAW" BMS, 11@; CAR4@BU1OBL_4LZ2BU1OBRRS 
R22BUL@BLSLi2" 

11@ LINE (1@5,97)-(97.1@2) ,PSET: LINE (95,7 
5)- (87,87) , FSET 

12@ CIRCLE (190,155), 25,2.0.5: FAINT (180, 1 
7) 1 

12@ DRAW" BMiS®, 80; C2ELOF1OBRBESFS": FAINT 
(155,78) ,2,22PAINT(184,78).2.2 

14 DRAW" BM150, 80: CARZ@BRER16EMBS, 120:04 
US6R4D4CZBLZUSR1DS" 

15@ GOTO 15@ 


You should now be able to isolate which lines draw which 
object on the screen and modify the program accordingly. 


Objects and characters can be as easily displayed on-screen. 
Just to show you what can be done, there follows two 
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programs: one drawing a gilded knife or dagger and the other 
depicting a cheeky little Gremlin. 


1@ REM**XKXA ENIFE OR DASGES ok 
2O PMODE 4,1:FCLS:SCREEN 1,1 
B@ LINE (29, 9@)~-(170,7@) ,PSET 


4@ LINE (2@,90)-(17, 110) ,eSET 


-4 


Se sisteeteaie espace hal 


7® she calahecs, bik die ih er taal cael 
FISU4GOBR1 AaD4OBR1 OU4@BR1ieD4o" 
£¢@ GETS Se 


12 REM*KERXKKKA LAUGHING GREMLINAKKKEEX 
2@ MODE 4,1:SCLS:SCREEN + 
T@ Y=SO:5OR T=5 TO Ze STEP 2 
4 CIRCLE (KX, 4@). 7.1.1. 22 X=X42 
S@ NEXT T:sxX¥=12e@ 


£9 FOR T== TO Ze STE 


ta 


7@ CIBCLE(X,4@) 7.1.4. 2:X=X42:NEXT T 
8@ FOF T=! To ig 

2% CISCLE(1@5,.10@).T.1,1.8:NEXT T 
12O@ CIRCLE (195.196), 50,1.0.7,8.1.@0.4 
11@ CIRCLE (1@5,9@).60.1,1.4,@.1,@.41 
122 SOTO ize 


Note how the circles drawn (lines 30 and 70) are offset by two 
each time to give the depth of the Gremlin’s eyes. 
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Finally in the graphics part of this chapter, here is another little 
pattern for your amusement and possible inclusion in your 
very own adventure game. Little has to be said about the 
program as the display produced is explained by the title, 
‘Lace Webb’. 


1@ REM*AKXX*XxXLACE WEBKXK*x 

20 PMODE4, 1:PCLS@: SCREEN, 1 

2@ FOR Z=4 TN 20 STEF 4 

40 IF Z=12 OR Z=20 THEN 4@ ELSE 5® 

S® FOR X=6 TO 255 STEF Z:GOT97e 

60 FOR X=255 TO ® STEP -Z 

7@ Y=INT(X*191/2E5) 

B® LINE(@,Y)—-(X,191) , FSET 

9@ LINE CX, 1913-255, 191-Y) , PSET 

10@ LINE (255. 191-Y) -—(255-X%, 6) , PSET 

11@ LINE (255-X,0)-(@.Y) , FSET 

12@ NEXT X:C=1:M=85 

12@ SOR T=1 TOM 

14@ CIRCLE (128,96).T,C.0.6 

150 NEXT T 

15@ C=C+1i:IF C>1 THEN C=a 

170 M=M-S:1F M<9 THEN 172 

18@ GOTO 126 
If you are considering using quite a few graphic displays in 
your games, you may come across a large problem and thatis 
what to do about on-screen writing. Evenif your picture is very 
good, it may require a few words at the bottom of the screen to 
give the player the hint that he or she needs. As this computer 
cannot mix text and graphics on the same screen, you are left 


with two choices: either display the picture for a short time 
and then revert back to the text screen with the message 
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printed on it; or define graphically the letters you need to 
make up your message and draw them at the required place 
on the graphic screen. 


Both techniques have good and bad points. It is much simpler 
and less memory-consuming to revert back to the text screen, 
but this method is far less presentable than the graphics 
screen message. Let’s consider the graphics screen option. 


The letters themselves can be created on the graphics screen 
in one of several ways. The LINE command could be used to 
create each letter or the letter could be defined by the DRAW 
command; the latter option is really the most efficient way. If 
you intend to use quite a few words, then the best thing to do 
would be to define a whole character set using DRAW and 
have the data required to do this positioned as a subroutine in 
the program. You could then use an ON... GOSUB to take you 
to the particular line of data to draw each character. The 
letters could be numbered ‘1’ for the A character, ‘2’ for the B 
character, and so on. To write a word, a DATA statement 
could hold the numbers needed in the ON...GOSUB state- 
ment, ie. to write the word ‘HELLO’, the data would thus be 
8,5,12,12,15. 


In my ‘Graphic Alphabet’ program, | have defined an alphabet 
including numbers and certain punctuation marks from line 
9800 onwards. Line 13@ goes to the subroutine that defines 
the specified character. Line 20 is also important in that it sets 
up the graphic screen. The rest of the program provides the 
demonstration aspect of the program by converting your 
computer into a graphic typewriter. Line 3@ provides your 
starting position and initialises the variables required. Line 40 
prints a tiny cursor and ‘strobes’ the keyboard waiting for a 
key to be pressed. Line 50 converts the key pressed into a 
numeric value for X, ‘X’ being the variable in the ON... GOSUB 
statement in line 130. 


Lines 60 to 120 convert any values of V$ that line 50 was 
unable to do. As with line 59, the figure is stored in X. Finally, 
line 140 checks to see if you have reached the bottom of the 
screen. Line 150 then draws the character and adds one to the 
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variable, L (the ‘characters across’ value). If L reaches 25 then 
a new line is started. 


By typing the whole program in, you will see how the graphics 
are displayed. You can delete the unnecessary lines and keep 
the ‘characters’ routine together with an ON...GOSUB anda 
DRAW command somewhere. You would then have your text 
as part of the graphics which can be now accessed bya DATA 
statement. If you would prefer to have the characters smaller 
or larger, or perhaps in a different mode, then a little work has 
to be done. The scale parameter on your computer's DRAW 
command would need to be accessed by adding an extra 
string containing ‘Sn’, where nis the scale of the lettering. The 
character is drawn to the scale of n/4 so that if n=2 then the 
character would be half the previous size, and if n=8 then the 
character would be double the previous size. If the normal size 
is required, then there is no need for the extra string. That is 
fairly straightforward - what will take longer to dois to change 
some of the characters defined. Some of my characters use 
odd numbers which, if halved in size, will be rounded and may 
cause some DRAW directions to be one pixel out either way. 
The best way to combat this is to print every character on the 
screen and change the ‘odd’ ones accordingly. 


1@ REMEXXXXGRAPYUIC ALPHARETKA** x 
2@ PMODE 4,1:°CLS:SCREEN 1,6 


as 


S@ DRAW"PM1O,17"sL=isM=17 


4G DRAW"CLL 2": VS=INKEYS: DRAW"CORZ": TE Us 
="" THEN 4@ 

S@ X=ASC(VS)—-61:DRAW"CI":IF X<1 THEN X=X 
+45 

S@ IF VS=" " THEN X=1 

7@ IF VS="." THEN X=2 

26 IF VS="," THEN X=% 

9@ TE Ve="/" THEN X=z@ 


1@@ IF V$=CHRS(9) AND L>1 THEN X=24 
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119 IF VS=CHR#(12} THEN X=42 

TF L“2 AND V#=CHRS(9> THEN PLAY"O1LLt 
@ODE":5CTO 4¢ 
1Z@ ON X SOSUE 901%, 9O20, 9M22, 9840, O58, 
9GE@, PO7O, FORO, FAIS, FLAG, 9118, 9128, 9128, 


a 
LE 


2140, 915M, 916Q, 917A, P1BO, F192, 220M, 9212, 
9220, P2EP, IZAG, IZEQ, PZEM, 927M, 92IO, 929, 
OZOH, VTLS, FEZO,, VSAM, PESO, ISSO, 9Z7O, VER, 
FEIO. GAME. 9410, 9420, PATO 

149 If L>BZ AND M>ige@ THEN FOR T=1 TO 1@ 
@@:NEXT TrPLAY"O4L2@CED":PCLS:GOTO 2 
15@ DRAW AS:L=L+i:IF L>24 THEN L=i:M=M+t 
DrLINE (1@.™)—(10,M) PRESET 

14@ GOTO 4@ 

9A REMAKKKXDATA FOR DRAWKKIKKK 

9010 AS="ERLO": RETURN 

9920 AS="ERARZULLZEDI BRS": RETURN 

FASO AS="EBREBULLIDILIBR7T": RETURN 

9040 At="JORSD4LSERSD4ER4": RETURN 

950 A¢="JERSF1DZLEBRSDZGLLSER1O": RETURN 
950 At="VERSEDSLSPR1G" : RETURN 

970 At="RLUELISSDELERR1@": RETURN 

9OS6 As="UJBRSED4BLILSBDARSER4": RETURN 
992 At="VORSED4ELZL4ER19HD4" 2 RETURN 
2100 AS="UBRSEDBLSERLUSLSBR7EDS" : RETURN 
C11 A¢="USPRSDBBU4LSER1@2D4": RETURN 
9120 At="HUERSBLEDELIRSER4" : SETURN 

912@ At="UZEDZR4UBRZLSEDEBR1@"s RETURN 
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9140 
21508 
916@ 
9176 
21860 
9190 
9200 
9210 
9220 
9220 
9240 
9256 
2260 
92764 
N 
9236 
9290 
92060 
RN 
9210 


At="UEDSESG4F4BR5": RETURN 
AS="UBDBR6ER4": RETURN 
AS="UBFSESDEBR4": RETURN 
AS="JED1FSD1 UBEDBER4": RETURN 
AS="UBR6DEL6BR1 2": RETURN 
AS="IBRED4L6ED4ER 10": RETURN 
AS="BULUTRSOD7LSEREBUSF ZER4" 2 RETURN 
At="UER6D4LS5R2F4ER4": RETURN 
AS="REU4L6U4REBDSER4" : RETURN 
A¢="RZUBLERSPR4ED8" : RETURN 
AS="JVEBRSDELSPR1O": RETURN 
A$="BUBDSF ZEZUSPRAEDE": RETURN 
A¢="UBDEESFZUCER4EDS" : RETURN 
AS="BUEDLE SDL BLEULEEULEDSER4"s RETUR 


Ag="HUGFZEZREIDSERT ": RETURN 
Ag="BUERED1S4DLRSER4": RETURN 


AS="BUSUARSFLDIGLL2DZED2DLBR7":RETY 


AS="COLIGULRLAVALLOULRL@UILIGULRL@U 


LLI@ULRL@ILLIGeDES" 


Fz20 
9220 
Fz40 
°Z50 
FEE 
FE7O 
9380 


PLAY"LL@O0SCED":sLl=L—-Z: RETURN 
A¢="VJERSDBLEULESISLSDBRR4G" =: RETURN 
AS="BR4jIBGZBROBDS" : RETURN 
At="BUERSD4GIL4D4R4BR4": RETURN 
AS="BUBRSD4LSBRSD4LSBRi9"s RETURN 
AS="BUZUSDSRSLZUSD4BR7": RETURN 
AS="RSU4LEU4REBR4EDE" : RETURN 
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929@ AS="UBRSED4L 4BR4 D4ILSBR1I@": RETURN 
9400 AS="BIBRSD2SGG6ER1 0": RETURN 

9410 At="UBREDEILSU4SREBR4BD4": RETURN 
9420 AS="BN4AUARSD4ALERSD4ER4" : RETURN 
9430 AS=""sL=BS: SLAY" OSZLIMeDEC": RETURN 


We now turn our attention to sound aspect of programming. 
Your computer has been criticised by many for only having 
one sound channel. However, single channel sound is, 
although less versatile, much easier to use than multi-channel 
sound. You can still get good simple effects with your single 
channel as the routines below suggest. The names in the REM 


statements are generally self-explanatory. 


® REMKXKEKKXKXFOLICE SIRENKXKXKXKXK 
20 FLAY"L8B027BCRCBCBCBCBCBCBRCBCBC" 


10 REM*X*XKXKXWARP ENGINESKXEXKEKX 

26 FLAY"L25502CDEFGABOZCDEFGABO4CDEFGABA 
GFEDCO2BAGFEDCO2BAGFED" 

20 GOTO 26 


® REMKXKXKKXKXLASER CYCLEXKXKEXXKX 
20 FPLAY"L2550 1CDCDCDEFEFEFEFGAGAGAGAGABA 
BABABABAGFGFGFGFGFEDEDEDEDEDL46e8C" 


@ REMGOOOOLASER CYCLE 2000 OOKx 

26 PLAY"L1®002CEGEHOZDFAD4CEGBAFDOZRGECO2 
AFD" 

2@ GOTO 26 
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® REMKX*X*KK* MUNCH? KEKKKKE 
20 FLAY"L2SSO1CEDF6" 
34 GOTO 26 


® REMKXKKKKK? MUNCH DKEKKKEKK 
26 PLAY"L25501CD04CO1DCF6" 
20 GOTO 26 


10 REMOOUOOKKLASER CYCLE 200 ORx 
2@ PLAY"L10@02CEGROZDFAD4CEGRAFDOZBGECOZ 
AFD" 


30 GOTO 2 


 REMK*XX*EKXELASER CYCLE 4XXKKKKKX 


20 PLAY "_2SS02CEGEHOZDFAD4CEGBAFDOZEGECO2 
AFD" 


30 GOTO 20 


® REMKXXXKXKSOUNDKAKKKKEX 


20 FPLAY"T20004L 40CL46@ELB80GL190BL14005L18 
®DL2556" 


9 REMKX*XKXKSOUND LOOPXKXXKEX*X 
20 PLAY" T200C4L40CL4@EL806GL146BL14905L18 


@DL2556" 


3H PLAY"F4":GOTO 20 
152 


Despite the rather ‘arcade-type’ titles given to the sounds, I’m 
sure that at least a couple will be of interest or use in your 
adventure programs. Admittedly, the computer is better at 
playing tunes than creating weird and wonderful effects. 


For creating tunes, | have used the most effective method 
known to me, and this is using substrings. That is, letting a 
string equal a series of musical notes and then playing the 
string as a substring within the whole PLAY command string. 
This helps to remove endless repeats of a frequently-played 
bar and also allows you to experiment more. 


Here are a few tunes below, just to whet your appetite. Be 
careful when you type in the strings as the octave is repre- 
sented by ‘O’ (the letter) which should be distinguished from 
a zero, ‘0’. 


® REM*X*XTHE MAN ON THE FLYING TRAPEZEXkK*x 
20 AS="02;5T453L827:L4:52:9:510;125L4.3125L8 
$123 072043 1;3O02s 53 Ssl2.3103L4333738310;312 
3$19:103;8:53L232:L43 23239; 103;123;L4.312;3L8 
31230530431: 0235353L23 10314; 8; 7302; 7; 023 
vis Lah de apeaantaianaibanie 

3 EBSB="925L935373L4 10:83738:735:L2.51 


1 : 
2£123L8:12:;02:L4s130235:25;L2s 1 

27:L4: 7302: 7:L4: 73123 16sL2.38: P2223" 
S@® FLAY "XC%S3 XASs XBS;s xXC$;" 
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@ REMEXEXXXKYANKEE DOODLEXKXk*kxx 

2@ AS="T23V1570F2L8257838s10;12:8:L4s123 
18;9;8:;10:;12:3.4:8:L8:7" 

3O B$="F3829310312303313;02312510;8:7 Ss 
373Ll4:8:'838:sF16" 

4@ PLAY "XAS;XBS;" 


®@ REMKXKXKX76 TROMBONES &XKXKX 

20 AS="T4;0253LB8;39:10312;073;L4.1:02:935sb 
4333093 1314:01512;02;18;10:L4.:8:318:8:10 
312;302%31323L4.3230221238:L4:6:L8s23;L2.51 
31839:1@312;023 132:L4.35313;02:8:L4;3;5:L8; 
Ls" 

30 BS="L436:L8305L4;10;L8:12 eee 
3643123L8; 143L2;8:L8312;02;L4 L8s2sl4s 
13023LEs: 162L2. ;02:3;P8s" 

4@ C$="L4.36:510:03313L4;02512:;L8519;L2:9 
3183 12303;L43 2slB: 2:L431318:02312;302st2. 
3i3P9;" 

S@ PLAY" XA; XBS; XAG: XCHs" 


@ REMKSKEKXTHE ENTERTAINERKESKX KX 

20 AS="L1S503GGHAD4FP 1502A04FP1502A04FP5S" 
30 EBS="FGGHAFGAF1S5EGP15FP5" 

40 C$="04DCOZBO4DFAF12GEDGP5" 

5® D$="04FGG#AFGAP15FGP15AFGAP15SFGP15" 

60 E$="AFGAF15EGP15F" 

7® PLAY "XAS: XB3 XASs XC$3 XASs XBS3 XDSs XESS " 
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When using the PLAY command, the notes can either be 
numeric (between one and 12) or just like musical notation (A, 
B, C, etc). The first three tunes use the numeric technique 
while the last tune uses musical notation. 


Using the latter method, it is quite easy to transfer sheet music 
to your computer. Try to use single line melodies and prefer- 
ably well-known tunes. One of the many music books for 
beginners contain many tunes perfect for your requirements. 
A final technical point, the semi-colons in between each note 
are mere spacers to make the lines more readable and do not 
have to be included. 


You may think that the tunes are very nice, but what use are 
they to me in writing an adventure. A tune can really be of two 
uses. Firstly, as a theme tune at the beginning or the end of the 
game, or as acompanion to a special display. Secondly, a tune 
can be a clue or puzzle itself. ‘76 trombones’ is an ideal 
example. The tune is known but often people cannot put the 
title to it. You could, therefore, have a location that you were 
trapped in until you could guess the two-digit code that held 
the door shut. The correct code would be ‘76’ and your only 
aid would be to hear a snatch from the tune. The number of 
guesses the player could have, before being trapped forever, 
would be severely limited to say three or four meaning that the 
player really had to know the tune before he or she could 
proceed any further with the adventure. 


This is just one of the many possible things that you can do 
with sound in an adventure. Generally, sound is a good 
feature to add as it is relatively cheap on memory and if you 
don't like the final effect, then you can always turn your 
television down! 
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CHAPTER 8 


HELP! A GUIDE TO THE 
ADVENTURES IN 
THIS BOOK 


You must only read this chapter if you have failed despairingly 
to get into the adventures in this book. | deliberately withheld 
as much of the information about the adventures that was 
possible without spoiling the programming knowledge that 
you were given. Naturally, some of the surprises had to be 
given away to demonstrate the particular programming point 
being made at the time; however, as you will probably have 
found there were still many little traps for you to fall into. Here, 
| will give you a few tips to get you further into the adventures 
in this book. There are no extra clues given to the maze game, 
the only advice would be to construct your own map of the 
maze by constantly travelling around it. Then you will be able 
to travel to any point that you so require by referring to your 
map. 


The first adventure, that | will give help on is the grid game, 
‘The Golden Chalice’. 


With this game, the one thing that you must do is concentrate 
on the map at the beginning of the game. The symbols may 
seem odd, but are detailed below. 


Inverse M Monster. 


‘H’ Human (You). 
ss Rope. 
Space Roof opening. 
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a Torch. 


‘O’ Flood. 

‘x’ Quicksand. 
‘#? Map. 

‘$’ Chalice. 


In the brief time that the map appears on the screen, try to 
memorise where the map is. If you collect the map, you can 
then move around the adventure and when lost, for a fee of 
three hours, see the mess that you have got yourself into. Try 
to write everything down and remember that you need four of 
the five pieces of rope. 


As this adventure is largely random, that is all the help | can 
give other than to say watch the screen at all times. 


‘The Dark Forest’ is a more structured and difficult adventure 
to solve. Again, there are some parts that are random in design 
but the locations and the links between them are always the 
same. Below are some tips. 


(1) Do not go north from the beginning or you will land up 
in prison. 

(2) You have a better than average chance of benefiting from 
the opening of a possession in all bar extreme circumstances. 
(3) Your starting figures of money, strength and magic will 
almost certainly be not enough to vanquish the Creature at the 
end of the game. Therefore, you must do your best to obtain as 
many extra points (mainly through possessions) as possible. 
(4) When fighting, choose your strongest attribute, for if you 
lose, the game is over. Note that whatever the battle level of 
the Creature, the magic level is divided by ten. Magic is often 
the best attribute to use. 

(5) The battle strengths of the monsters are: Sir Rufus Of 
Gascony, 20 (weak); A Ferocious Bear, 20 (weak); A Band Of 
Robbers, 40 (strong); Grendal, The Hermit, 40 plus a random 
element of up to 15 (strong and unpredictable); and the Black 
Knight, 6@ (keep well away from him, this enemy will give 
anyone a terrible mauling). 

(6) The bridge guarded by the troll marks the only way to the 
Creature’s lair. You must offer at least 40 (preferably more) 
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pieces of gold to get yourself through. If the troll rejects your 
offering then you are moved to a distant and tricky part of the 
adventure. 

(7) The cave's entrance is to the south, the clue you are given 
is just to slow you down considering the answer. 

(8) The well location is interesting. You are asked if you wish 
to go down the well. There is a large chance that you will be 
drowned as the computer’s reckoning that the well is empty is 
not to be trusted here. If you do go down the well and are 
safely at the bottom, you will see an ornament with the magic 
word ‘GRANDOS'’ inscribed on it. The ornament is the Ram of 
Anag, think about it... The Anag-Ram! Therefore, the magic 
word is not ‘GRANDOS’ but an anagram of that word, 
DRAGONS. This is the code word that should be used when 
confronting the woodcutter’s hut. 

(9) If you have been round the adventure, collected the Ram 
of Anag and have landed in the Black Knight's prison, do not 
worry. The computer will ask you for a final command. If you 
enter the code word, then you can escape. It’s no use just 
entering the code word if you do not own the ornament - the 
computer recognises cheats! 

(10) Try to boost up your money and spells in particular. If at 
any time your strength appears to be getting low, you can 
have a rest which will revitalise you. Spells are good for 
fighting your adversaries and are particularly effective against 
the Creature. 

(11) Try to codify your movements. Wandering aimlessly 
around the adventure is not a very good way of attempting to 
solve it. Write down on paper your movements, actions and try 
to construct a scenario map. These will all aid you in trying to 
solve the adventure. 


A much tougher adventure than the previous one, ‘The 
Nielson Papers’ will keep you adventuring for some time. Here 
are some hints to aid you in your progress. Be warned, | have 
not told you everything! 


(1) From the opening location, you can only move north. 
(2) Do not fire your gun without the silencer, unless itis a real 
emergency. The sonic alarm in the building will pick up the 
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sound and will alert the security forces. You will then have 
little time to escape (another 15 moves or so). 

(3) There are 30 or so commands for you to find, understand 
and use. A list of them is below: 


GO 
MOVE 
TAKE 
GET 
STEAL 
DROP 


READ 
CLIMB 


CUT 


CHANGE 


OPEN 
UNLOCK 


FIRE 
SHOOT 
WAIT 
DRINK 
SEARCH 
LOOK 


WEAR 
COMPUTE 
CALCULATE 
DECODE 
HELP 

CLUE 

QUIT 

PUT 


Allows you to travel around game, use N, 
S, Eand W. 


Collect a movable object. 


Self-explanatory - this command allows 
you to discard an object. 

Read certain messages. 

Climb up to the shelf with papers on, but 
you must have the stool or ladder to do so. 
Cut fence with wirecutters. Care should be 
taken here, without gloves you will be burnt 
to a crisp. 

Allows you to change money to coin for the 
executive washroom. 

If carrying the key these commands allow 
you to unlock doors but must be used 
discriminatingly. Some of the doors are 
very old. 

If carrying a gun, these commands allow 
you to fire at a security guard. 

Simply, a pause. 

Allows you a drink, if you have a cup. 
Allows you greater detail of a location than 
the normal description. Must have torch to 
do this. 

Allows you to wear the gloves. 

Allows you to work out the coded memo or 
the computer-controlled lock in the docu- 
ment room. 

A simple plea for assistance. 

Another plea for assistance! 

Type this when you're fed up with the game. 
With this command, you can put the money 
into the coin-operated lock and attach the 
silencer to the gun. 
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HIT - These commands all allow you to vanquish 


FIGHT a security guard. If you do not have the rope 
ATTACK or wirecutters, then you will fight with 
KILL your hands. 


(4) There are 18 objects, only a couple like ‘paper-clips’ and 
‘papers’ are totally useless and have been put in as red 
herrings to confuse you. 

(5) The key which is in the dark corridor opens all the locked 
doors. 

(6) If you get as far as escaping, you need to get to the fence at 
the back of the delivery room. You will need the wirecutters to 
snip through the fence and also the special gloves to stop you 
being electrocuted. 

(7) Once in the document room, you will need a stool or 
ladder to climb to the top shelf. 

(8) Try to decode the memo, its advice is pretty important. 
(9) Once in the maintenance area, going west will just take 
you further into it. 

(10) Be careful when around the vault because if you get 
locked in there without the key, your game is over. 

(11) Plan your escape carefully. Once you have taken the 
papers, the alarms will sound and your time left to move 
becomes very short. 

(12) Finally, as with ‘The Dark Forest’, always map out the 
adventure. By creating a plan or map of the adventure, you 
can travel to any required location easily. It is the only way to 
solve the adventure. 


Much aid has already been given on ‘The City Of Atlantis’ 
adventure in the form of amap, alist of commands and alist of 
the objects. Here though, are a few extra points of note. 


(1) If you bump into a wallin room 1, the Atlantan is distracted 
with laughter and you can then go east to room 2. 

(2) In the Radio Station, do not stay for too long - some 
Atlantans may hear you over the radio and come and 
investigate. 

(3) Search the scientist in room 2 and you will be given some- 
thing to alleviate your problems with the thin atmosphere. You 
will then have enough strength to fight the gladiator in room 3. 
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(4) Try tosteer clear of any monsters until you think you know 
how to dispose of them. Remember, that in most cases, the 
‘paddies’ are blocking or hiding a course of action open to 
you. Many of these courses of action are essential to your 
escape from Atlantis. 

(5) A cryptic clue to finish with: remember your horticultural 
knowledge, it will come in useful at some point... 
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CHAPTER 9 


SOME IDEAS FOR YOUR 
OWN ADVENTURES 


After reading through all of this book, | hope you will be 
inspired to rush off and write your own adventure program. 
Sometimes, thinking up a plot with all the characters, objects 
and locations can be difficult. Below, | have illustrated briefly 
a few ideas that you could possibly use. 


(a) The Plot 

Obvious ones are often the best, such as stealing the treasure, 
battling against some grotesque creature to save planet Earth 
and rescuing your imprisoned friends. Most adventures 
involve you finding something - the actual item can be almost 
anything, such as a lost city or the last dilithium crystal left 
that will enable your stranded spacecraft to blast off back to 
your home planet. 


More difficult to think of is the actual setting that your 
adventure is to be in. Try at first to narrow it down to an area, 
eg. space, medieval, underground, everyday, desert, ocean, 
recent history, and the like. Everyday times can often be a 
fascinating area to place your adventure in. Most people 
expect the medieval- or fantasy-type game when they settle 
down to play an adventure, so you can imagine their surprise 
when they find the first location to be on a number 73 bus 
going towards the town centre! My game, ‘The Nielson 
Papers’, uses a fairly everyday setting but witha ‘secret agent’ 
approach. For extra interest, you could possibly merge a 
couple of these ideas and forma rather surreal adventure with 
three or four totally different settings in the one adventure. 
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Another possibility concerns a more personal adventure 
written around your own home. The characters could be 
people that you know and you could add a few locations if you 
do not have enough rooms to fill up your adventure. Another 
area that you could base your adventure on is from a book or 
story that you have read. Of course, by doing this you will have 
to keep it for your own personal use as copyrights on all 
written material are very strict and usually enforced heavily. If 
you are writing an adventure just for yourself, then using a 


well-known story gives you many of the locations and 
characters needed. 


(b) Locations 

Thinking up 20 or 30 location names is not always an easy 
task, especially when they all have to tie up with the adventure. 
In all adventures, there are a few locations that perform little or 
no task and are just there for you to travel through. Below area 
list of descriptions that can be used for this purpose. 


A dark, dank storeroom. 

A spacious hallway, richly decorated with paintings. 
A musty corridor. 

A windswept garden, covered in weeds. 

A clean, white room sparsely furnished. 

An area of strange, tangled undergrowth. 
A vast storage room, cold and uninhabited. 
A small meadow of no significance. 

A gently rising hill. 

A crumbling building built some time ago. 
A collection of ruins. 


These are just a few of the possible descriptions that you 
could use. They are fairly non-specific and are short, so that if 


detail needs to be added then, you will find room in the 
memory to do so. 


You will need some very specific locations to tie in with the 
whole aim of your adventure and these can be obtained from 
your plot quite easily. 
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(c) The Characters 

Names of creatures, both good and bad, are not that hard to 
create, but why work yourself at all when you have a powerful 
computer nearby. The program below generates random 
creature names. The combinations of letters are not totally 
random as there are several lines that guarantee a vowel 
every second and fifth letter and a line to stop a ‘Q’ coming 
anywhere except at the front of the word. It’s only a simple 
program but you may get a few useful names from it. 


1@ REMAX*KNAME GENERATOREKKK 

20 CLS:NAMES="":A=0:L$="" 

20 FPRINT:FOR N=1 TO RND(8)+4 

4@ A=RND(26)+64 

5@ IF A=81 AND N<+1 THEN 40 

6@ NAMES=NAMES+CHRS (A) 

7@ NEXT N 

80 GOSUB 120:MIDs (NAMES, 2,1) =L$ 

9@ GOSUB 130:MIDS (NAME#,5,1)=L$ 

19@ PRINT TAB(1@) ;NAMES: PRINT: PRINT: PRIN 
T:PRINT 

11@ SOUND 180,1:PRINT"PRESS ANY KEY FOR 

ANOTHER NAME" 

12@ IF INKEY#="" THEN 12@ ELSE RUN 

1=@ RESTORE:FOR T=1 TO RND(5):READ L#:NE 
XT T:RETURN 

14@ DATA A,E.I,0.U 


For those of you with a printer that are even more lazy, why not 
type in the following program which dumps a whole catalogue 
of names onto paper. If you have a printer with a buffer, it is 
advisable to press the BREAK key after some time, as the 
printer will have stored quite a few names in its memory that 
have not yet been printed out. Whenever you press the BREAK 
key, you should expect quite a few more names to be printed, 
the exact number depending on the size of the printer buffer. 
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1@ REM*XXKNAME ON PRINTER GENERATORKX&X 
15 PRINT#-2,"" 

2@ PRINTH—2, "X#**kK**KKXCREATURE NAME LI 
STHRK EEK NET" s PRINTH-Z, 

3@ NAMES=""sA=0:L$="" 

46 FOR N=1t TO RND(8)+4 

5@ A=RND (26) +64 

60 IF A=81 AND N<>1 THEN S@ 

7@ NAMES=NAMES+CHRS (A) 

8® NEXT N 

9®@ GOSUB 130:MID$ (NAMES, 2, 1) =L4 

1@@ GOSUB 12@:MID$ (NAMES, 5, 1)=L% 

119 PRINT#-2, NAMES; ” "s 
12@ GOTO ze 

12@ RESTORE:FOR T=1 TO RND(5):READ L$:NE 
XT T: RETURN 

14@ DATA A.E,1I,0,U 


A very large percentage of the names formulated will be 
unusable, but you only need to gain a few names to have made 
it all worthwhile. On the next page is asample printout of some 
words generated; | have ringed those which may be suitable, 


but you may have other ideas and prefer some | have ignored - 
just have a look... 


KXAKKKKEXKEXCREATURE NAME LISTKAKKKKXKKKKK 
BAOOUTL AECUERUWG JECYUUE XOF 
FUODDLMFK QOLLIFDXDJIC ZUXNEYFDN 
CIMJOB J IMZUDWNDFX XILYEMGC 
D ZOZJIERCAN QIPSOOWZJBF TUR 
TISE RIADIOYDVIXF COEFOYXCZR 
DEFUUEXUT ZUYTES GEYIAPUPIWR 
PAXKEFGUN LOUNADYWPF EIMLIWY 
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UICMAABIXSZ RUZIOWTR XUHWIZPZ 


WUGD KIMSECTJOEK XORYIUNIA G 
OTBUWOW @ur6u) KICVAUINI HOLL 
EGI GEPVITK IAACUWC PAYWIETM 
WML WAFHIEWZ BEXXATHVJRE ZAF 
WEIV RAQUOJFRZT CUFMI XOPPID 
VWNKM QOWLOL QAPEUTHF 
REMCOD IOMZAIP XECRARZKB 
WUNZIU SODVISOEEV HOU 
XAHGU GAKZIFT (KAHTO) WIPBALTM 
YSLN PUKLETLZ XOTKEOZ DURSUD 
SFITPB OEGWILA HEKCU KAECU 
IODZIYG IITCERKIONH MAJRAEZYL 
Y RAXOABBBWZ CUJJUNDS ADBKOR 
PTFKH IQUPEARCAT AQWNO EOPNU 
B QIMDIBTUWZKK KEVDACX AAGII 
BFRU VAYEAFSWYUC OIMAEIFUIT 
IUJJAZLR VITTINNDHZ WA 
NFIU VOAUAF CUSRAFPRO NATII 
UUBRO GENLUH DUTMUY GIKB 
1G DAEDEV ROPJULPST PUELAKDU 
Oo GOYMILTETLR GUSEI GAZAOWU 
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SOME USEFUL BOOKS 


Despite its popularity, there are few books of note on this 
subject. | have searched the bookshelves for any good 
volumes and below are, in my opinion, the most informative 
and useful. 


WRITING BASIC ADVENTURE PROGRAMS FOR THE 
TRS-890 

Frank Dacosta. Tab books. ISBN 0 8306 1422 2. 

Despite the book being set around a different computer, thisis 
a most useful guide. Lots of clever programming tricks 
described in a light informal format make this a ‘must’ for 
adventure writers everywhere on any machine. 


THE ZX81 POCKET BOOK 

Trevor Toms. Phipps Associates. ISBN 0 950 7302 2. 

3@ pages of adventure programming make this worth con- 
sidering, particularly if you are shrewd enough to pick it up at 
a discount price. Many shops are selling ZX81 material 
cheaper and you could well benefit from this. Trevor Toms 
uses a more unorthodox framework for adventures and if you 
have previous knowledge of a ZX machine, then you will find 
little difficulty in converting it to your new computer. 


ADVENTURE WRITING 

Aardvark-80,2352 S. Commerce, Walled Lake, M/ 48088, USA. 
This 16-page booklet selling in the United States of America 
(for the exorbitant figure of five dollars) is a terrific help to all 
adventure writers. The adventure program included, ‘Death 
Ship’, is broken down in detail and illustrates the program- 
ming techniques used very well. Recommended. 


CREATING ADVENTURE GAMES ON YOUR BBC MICRO 
lan Watt. Interface/Addison Wesley. ISBN 0 201 14678 9. 
lan really does know his stuff when it comes to writing 
adventure programs. In this book, there are three full scale 
adventures all written with a skill that makes them very 
difficult to beat while still being fairly simple to understand in 
terms of programming used. 
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This book takes you stage by stage through the world of 
computer adventure gaming, from the very basics to 
the more advanced concepts. Along the way you willbe 
shown how to construct game maps, insert problems 
for the player to solve and learn how to use alli the 
techniques that are the difference between an average 
adventure and an excellent one. Iniaddition, there areno 
less than five full adventures for you to type in and 
enjoy, ranging from the visually stunning 3D Maze to 
the hideously complex ‘Nielson Papers’. 


Written by a dedicated adventurer who has a regular 
monthly column in a Dragon publication just on this 
subject, the book also features a chapter. on utilising 
sound and graphics in your adventures and ainumber of 
other games including ‘Swarm’ and ‘Four by. Four’ 
making this the best value Dragon book around. 


Another great book from 
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